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ABSTRACT 

A general mesh generation code (MESHGEN) and finite ele- 
ment flow solver (TURBO) for calculating the flow development 
through axial turbomachines are fully documented. The finite 
element approach followed Hirsch and Warzee . Excellent re- 
sults were obtained for the NASA Task-1 compressor operating 
with subsonic flow conditions. Construction of the code will 
allow straightforward extension to transonic flows, turbine 
stages and multiple stage machines. 
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I. 



INTRODUCTION 



A. STATEMENT OF TASK 

The original task of this research project was to con- 
tinue the work of Macchi [Ref. 1] and Cirone [Ref. 2] in the 
development of a turbine prediction computer code for the 
Turbopropulsion Laboratory at the Naval Postgraduate School. 
An analysis of the referenced code by Ferguson [Ref. 3] in- 
dicated that a significant amount of work remained to be 
done in order to make the program operational. In the au- 
thor's opinion the task could be better accomplished through 
the use of a different solution technique. After additional 
study and review of similar work [Refs. 4, 5, 6 and 7] it 
was decided that a finite element approach to the problem 
would be adopted. A program developed by Gavito [Ref. 8], 
which followed the work of Kirsch and War zee [Ref. 4], was 
selected as the basis for development of the computer code 
described in the sections that follow. However, Gavito 's 
program was formulated as a compressor performance predic- 
tion which, as it was reported, had not given results simi- 
lar to those obtained by Hirsch and War zee. Thus the first 
goal of the project became the development of an axial com- 
pressor prediction code that could produce results compara- 
ble to those published by Hirsch and War zee. The second 
goal was to revise and document the program so that its 
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application to any compressor and its extension to turbine 
analysis could be carried out without excessive difficulty. 

B. DESCRIPTION OF THE PROBLEM 

One purpose of conducting a through-flow analysis is to 
predict the performance of a turbomachine under design and 
off-design operating conditions. Through the combination of 
a mathematical model and empirically determined correlations, 
it is possible to provide the engineer with a tool that will 
determine the effects of variations in design parameters 
and analyze the performance of an existing machine. 

The first problem addressed in the formulation of a per- 
formance prediction code is that of expressing the analysis 
in a form that can be accurately and efficiently solved by 
computer methods. Most methods for through-flow calcula- 
tions are based on the classic work of Wu [Ref. 9] which 
stated that the equations of fluid flow in turbomachines can 
be solved on the intersecting sets of stream surfaces known 
as the Si family and S2 family of stream surfaces (Fig. 1) . 

In general the intersection of a Si surface and a S2 sur- 
face is a twisting line with three dimensional variations. 
However, if an axisymmetric assumption is made, the S2 sur- 
face will lie on a meridional plane and the directional 
derivatives on the S2 surface become the 3( )/9r and 9( )/9z 
in cylindrical coordinates. As shown by Smith [Ref. 10], 
circumferentially averaged equations with an axisymmetric 
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flow assumption can be used to a good first approximation 
for the through-flow analysis. 

Three general methods of solving the so-called radial 
equilibriiim equation of flows in turbomachines which results 
from the axisymmetric assumption can be found in the litera- 
ture. The first is called the streamline curvature method 
[Refs. 1, 2 and 11]. The method derived its name from the 
fact that the radius of curvature of the streamline is an 
integral part of the formulation. The second, a matrix 
method, applies a finite differences technique to the radial 
equilibrium equation, normally after it has been reduced 
to a Poisson form [Refs. 12 and 13] . The third method is 
the finite element method which was used in the present 
work . 

In the mid-1970's, Hirsch and Warzee [Ref. 4] first re- 
ported the application of the finite element method to solu- 
tion of the axisymmetric radial equilibrium equation. They 
applied the finite element technique to solve the equation 
expressed in quasi-harmonic form in terms of the stress 
function. They published extensive comparisons of the pre- 
dictions obtained using their method with measurements ob- 
tained on several machines under various operating conditions. 
In general, the method produced excellent results for com- 
pressors and turbines of single and multi-stage configura- 
tions. It was this demonstrated ability of the method over 
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such a wide range of parameters that let to its selection 
for use in the present project. 

In the sections which follow, the development of pro- 
grams MESHGEN and TURBO, which are based on the work of 
Hirsch and Warzee [Ref. 4], is documented. Comparisons are 
given of the results obtained when the program was applied 
to analyze the NASA Task-1 compressor with results obtained 
by the referenced authors. 
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II. MATHEMATICAL MODEL 



The equation of motion for a fluid has the general form 
(Vavra [Ref . 14 ] ) 

OV/3t) + (V-V)V = -Vp/p + - V(gz) (1) 

Using the vector identity 

(V-V)V = V(V^/2) - (VxVxV) (2) 

Eq. (1) can be written as 

dV/dt + V(V^/2 + gz) = -Vp/p + ff + (VxVxV) (3) 

The first law of thermodynamics for a fluid particle can be 
written as 

Tds = dh - dp/p (4) 

which, along an elemental path length dr in a fluid field 
implies that 

T(dr*Vs) = (dr*V)h - (dr*V)p/p (4a) 

or 

dr • (Vh - TVs - Vp/p) = 0 (5) 

Since dr is not equal to zero in general, in a homogeneous 
fluid flow the first law may be expressed as 

Vh - TVs - Vp/p = 0 (6) 

Substituting Eq . (6) into Sq . (3) yields 
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( 7 ) 



dV/dt + V(h+V^/2 + gz) = TVs + ?£ + VxVxV 
For steady, inviscid flow Eq. (7) reduces to 

VH = TVs + (V X V X V) (8) 

As shown by Hirsch and Warzee [Ref. 15], Sq . (8) can 

be revised to describe the flow through blade rows by intro- 
ducing a circumferential averaging process and assuming that 
the flow is axisymmetric at the averaged condition. The 
averaged equation can be expressed as 

-(VxVxV) = TVs - VH + (9) 

where Fj^ is the body force representing the action of the 
blades on the flow and F^ represents the dissipative force 
whose work generates the irreversible entropies. The F^ 
forces are considered to be uniformly distributed in the 
tangential direction and proportional to the loss coeffi- 
cients. Equation (9) leads to the following three equations 
in cylindrical coordinates (with 3( )/39 = 0) 

(V^/r) (3(rV^)/3r) - V^((3V^/3z) - (3V^/3r)) = 

3H/3r - T(3s/3r) - F, ^ - F , ^ (10a) 

D , r Cl / r 

(V^/r) ( 3 (rV^) /3z)- + (V^/r ) ( 3 (rV^) / 3r) = F^ (10b) 

Vr((3Vr/3z) - (3V^/3r)) - (V^^ r ) ( 3 (rV^) / 3z) = 

3H/3z - T(3s/3z) - F (10c) 
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Equation (10a) expresses the radial equilibrium of the 
meridional through-flow and it is the governing equation to 
be solved for the velocity components. Equations (10b) and 
(10c) determine the tangential and axial components of the 
forces once Eq. (10a) has been solved. 

For the solution of Eq. (10a) to have physical meaning, 
care must be taken to ensure that continuity is satisfied 
throughout the field. In general, the continuity equation 
can be expressed as 

3p/3t + V- (pV) = 0 (11) 

which for steady, circumferentially averaged flow can be 
written as 

(3/3r) (prbV ) + (3/3z) (prbV^) = 0 (12) 

3T Z 

where b is a blockage factor describing the reduction in the 
flow area in the tangential direction due to the presence of 
rotor and stator blades. The tangential blockage is ap- 
proximated by 

b = 1 - t/s (12a) 

where t is the blade thickness and s is the blade spacing. 

As will be discussed in the description of subroutine INPUT, 
this factor will be modified to account for the end-wall 
boundary layer contractions. A stream function, ip , can be 
introduced and defined so that Eq. (12) is automatically 
satisfied as follows: 
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(13a) 



3i{^/3r = Pi’bV^ 

oip/dz = -prbV^ (13b) 

After the substitution of Eqs. (13a) and (13b) into Eq . 

(10a) one is assured of the implicit satisfaction of con- 
tinuity as the radial equilibrium equation is solved ex- 
plicitly. Equation (10a) may now be written as 

(3/3r) ( (1/prb) (3ip/3r) ) + (3/3z) ( (1/prb) (3i(^/3z) ) = 

(l/V^) ((3H/3r) - T(3s/3r) + 

(V^/r)(3(rV^]/3r))- (141 

The equation is written in a slightly different form for 
solution in rotor regions where rothalpy remains constant 
along a streamline. The definition of rothalpy, H , given by 

Hr = H - UV^ (15) 

is subsTiituted into Eq . (14) and the terms in brackets on 

the right-hand side become 

j^3Hj^/3r - T(3s/3r) - (W^/r) (5 (rV^) / ~ , r " ^d , r ] 

The significance of the ^ and ^ terms can be analyzed 

in the following manner. The body force Fj^ acts in a direc- 
tion normal to the mean blade surface, which for radial 
blading is in the circumferential direction. The term Fj^ ^ 
accounts for the body force component in the radial direc- 
tion that results when blade lean is present. For most 
blading this is a small term that may be neglected. 
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similarly, ^ is the contribution of the dissipative 
forces in the radial direction for non-cylindrical stream 
surfaces. This contribution can normally be neglected for 
axial-flow machines, which is the case treated here. (Note 
that the two body force terms are included in the analysis 
for machines in which the magnitudes of these forces are 
significant.) With these simplifications the radial equi- 
librium equation may be written in the form 

(3/3r) ( (1/prb) (?il;/3r) ) + (3/3z) ( (1/prb) (3ti^/3z)) = 

(1/V^) ((3H/3r) - T(3s/3r)) +(V^/r) (3 (rV^) /3r) (17) 

with the appropriate modifications for solution in a rotor 
region . 
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III. FINITE ELEMENT METHOD 



A. INTRODUCTION 

The finite element method is a numerical procedure that 
is particularly well suited to solving problems in continuum 
mechanics, which invariably involve equations expressed in 
differential form. As stated by Cook [Ref. 16], the essence 
of the finite element method is the "piecewise approximation 
of a function c{), by means of polynomials, each defined over 
a small region (element) and expressed in terms of nodal 
values of the function." 

In order to understand the finite element method and 
the solution techniques employed in the computer program 
reported herein, one must first have a complete understand- 
ing of the basic element, the terminology used to describe 
the element, and the relationship between the element and 
the remainder of the solution domain. The complete problem 
is solved in a piecewise manner, in which the solution of 
the derived governing relationship over the discrete region 
of an element is sought to determine the contribution of the 
element to the overall solution. Figure 2 illustrates the 
single element as it is used in the present work and the 
nomenclature for the element on what is referred to as the 
"local domain". The number scheme to employ is arbitrary, 
limited only by the requirement that the system remain 
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consistent from element to element. Figure 3 shows a ver- 
tical stack of three elements to show how elements are con- 
nected in what is known as a "global domain" . Table 1 lists 
the relationship between the two reference systems, known as 
the connectivity.- The connectivity is important because the 
solution of a problem over a computational region involves a 
careful summation of the local contributions of each element 
to the global equations. The summation process is tracked 
by the connectivity. Again the global numbering scheme is 
arbitrary, influenced mainly by considerations of computer 
storage and computational efficiency. 

The key concept to be grasped is that the finite element 
method is a series of local solutions that are coupled to- 
gether through the connectivity relationships to form a so- 
lution for the entire computational domain. A more detailed 
description of the finite element method is contained in 
Refs. 16 through 18. 

B. APPLICATION OF THE WEIGHTED RESIDUAL PROCESS 

A Standard weighted residuals process was used to trans- 
form Eq. (17) into a form that can be solved by numerical 
techniques. As a first step, the equation was written in a 
more compact form as 

(3/3r) (k(3!jj/3r) ] + ( 3 / 3z ) [k ( 3i);/ 3z ) ] + f = 0 (18) 

where 

k(r,z) = (1/prb) (19) 
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f (r , z) 



( 20 ) 



= (l/V^) [T(9s/3r) - 3H/ar + (V^/r)( 5(rV^) /3r) ] 
with the boundary conditions 

k(94-/9n) + (4^ - i|;q) = 0 (21) 

on the associated exterior surface S. Equations (18) and 

(21) may be rewritten as 

(1/r) { (9/9r) [kOt)^/3r) ] + ( 9/ 3z ) [k ( 3 i|j/ 3z ) ] + f} = 0 (22) 

in the volume, V, and 

(1/r) [k(9ij;/9n) + = 0 (23) 

on the surface, S. An approximation, ip(r,z), of the unknown 
solution is searched for such that the corresponding weighted 
residual, R, is equal to zero. Analytically this is ex- 
pressed as 

R = /w(r,z) R^ (r,z) dV + /w(r,z) R (r,z) dS = 0 (24) 

V ^ S ^ 

where W(r,z) is the (known) weight function and R^ and R^ 
are the so-called "residuals" in the volume and on the sur- 
face, respectively. As the sum of Ry. and R^ approaches 
zero, the approximation, 'p , approaches the exact solution, 

\p , with Ry and R^ defined to be identically zero if ip = ^ . 

By defining Ry to be equal to the left-hand side of Eq . 

(22) and R^ to be equal to the left-hand side of Eq . (23) , 

Eq. (24) can be written as 

J-W(r,z) [ (9/9r) {k(9tj^/9r) } + (9/9z) {k (9ii^/9z) } + f]2TTdfi 

n 

+ /Wk (3>ij/9n) 2TTdC = 0 (25) 

C 
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Integration of the first term of Eq . (25) by parts yields 

/ [k{ (9t|j/3r) (3W/3r) + (3i|j/3z) (3W/3z) } - Wf ] d^ = 0 (26) 

if ij; is selected to equal along the corresponding part of 
the boundary. The second term of Eq. (26) reduces to zero 
through the proper application of the boundary conditions. 

The boundary conditions must be satisfied in different 
ways for different portions of the boundary. Along the in- 
let where = 0 the conditions may be satisfied by speci- 
fying (3i(i/3n) to be zero or by specifying the nodal values 
of \p if the inlet conditions are conducive to calculating 
for each node. Along the shroud and along the hub the value 
of jj; must be specified as ij; = (m/27r) at the shroud' and i|; = 0 
at the hub. For nodes at the exit plane, the condition that 
(3ij;/3n) = 0 is required. 

C. APPLICATION OF THE FINITE ELEMENT METHOD 

The first step is to discretize the region into sub- 
regions or elements. Wirhin each element the unknown stream 
function, \p , and the coordinates r and z are assumed to have 
the following polynomial variations; 

n 

ip(r,z) = I i|;^N^(C,n) (27a) 

n 

r = ^ r^N^(C,n) (27b) 

i 

n 

z = I z^N^(C,n) (27c) 

i 
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where n 



number of nodes in the element 



= the shape or (trial) function for node i 

ip^ = value of at node i 

r. = value of r at node i 
1 

z . = value of z at node i 
1 

Equations (27b) and (27c) imply a geometrical as well as 
functional transformation or mapping, as shown for the pres- 
ent case in Fig. 4. 

The second step in the process is the selection of the 
weight and shape functions. The shape functions are defined 
when the particular type of finite element is selected for 
the computational grid [Ref. 16], The eight-noded quadri- 
lateral was used in the present program and its associated 
shape functions were entered in a subroutine. The weight 
function is independent of the shape function and may be 
chosen at the discretion of the individual. In the present 
case the standard Galerkin technique was employed and there- 
fore, the weight functions were defined as being equal to 
the shape functions , so that 

W(r ,z) = N(r ,z) (28) 

Equation (26) may now be expressed in the following form: 
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In matrix 



where / represents the integral over an element. 
E 

notation this becomes 



[K}®{5 = {f}® (30) 

where 



k®. = /k(r,z) [ ON./3r) ON./3r) + ON./3z) (3N./3Z) ]dfi 

ID E ^ ^ ^ ^ 


Ola) 


= /n. f(r,z) dfi 
^ E "■ 

and 


(31b) 


6 . = ^ ■ 
1 1 


(31c) 


The summation of the elemental contributions over the 


entire 



region yields the global system of equations needed to solve 



the problem. In matrix notation the global system of 
tions is expressed as 


equa- 


[K] {6 } = {f} 

where 


(32) 


m 

[K] = 1 [K]^ 
i 


(33a) 


^ e 

{6} = ^ {5}. 

^ 1 

1 


(33b) 


™ e 

{f} = 1 {f} 
i ^ 

and m = number of elements in the mesh 

5 . = ■ 

1 1 


(33c) 
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[K] = system's stiffness matrix 
{f} = system's right-hand side vector 
Since and f^ depend on the unknown solution , Eq. (32) 

is a nonlinear differential equation to be solved by an 
iterative procedure. The details of the procedure are con- 
tained in section V. 

D. NUMERICAL INTEGRATION TECHNIQUE 

In general, problems are analyzed using a coordinate 
system in which the boundary conditions can be written and 
satisfied in the simplest possible way. For problems with 
irregularly shaped boundaries and/or mixed conditions along 
different portions of the boundary, obtaining numerical so- 
lutions in the original coordinate system can be a formida- 
ble task. Very often a scheme must be found to transform 
the derived equations into a new coordinate system that con- 
forms to the requirements of standard numerical techniques. 
Traditional transformation techniques tend to be complicated 
exercises in algebra that require extensive reformulation 
for each geometry or type of boundary condition. The power 
of the finite element method is the automatic inclusion of 
a transformation of the geometry and the function to a rec- 
tangular domain where a variety of integration techniques 
may be employed. This can be seen in Fig. 4, which illus- 
trates what is implied by Eqs . (27a) , (27b) , and (27c) . The 

method can handle extremely complicated boundary conditions 
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and shapes with ease and is limited only by the type of ele- 
ment selected by the individual. 

The quadratic properties of the eight-node element allows 
curved boundaries in the physical domain so long as the sec- 
tion of rhe boundary included within a single element does 
not have a point of inflection. The use of a quadratic ele- 
ment also ensures continuity of the approximated function 
along the elemental boundaries regardless of the direction 
of approach from within the mesh. The specific numerical 
technique used in the program is discussed in the following 
section. 

1. Stiffness Matrix Evaluation 

In section C the following relationship was derived 
for the individual elements of the stiffness matrix, [K]: 

k®. = /k{r,2) [ ON./Sr) (dN./3r) + ON./3Z) ON./32) Ola) 

ID E ^ ^ ^ " 

In order to take advantage of well established numerical in- 
tegration techniques, Eq. (31a) must be transformed from the 
(2,r) domain and its irregular elemental boundaries to the 
rectangular (C^n) domain. Equations (27a) through (27c) de- 
scribe the variation of the function and the (r,z) coordinate 
values in the (C/H) plane. In order to transform Eq. (31a) 
it is necessary to determine the relationship of the varia- 
tions of the derivatives in the two domains. These relation- 
ships can be derived in a straightforward manner through the 
use of the chain rule as follows; 
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mm 









(9N^/o^) = ON^/92) (9Z/3C) + ON^/3r) t3r/3C) 



C34) 



and 



ON^/3n) = (3N^/3z) (3z/3n) + ( 3N^/3r) ( 3r/3n) 



(35) 



Equations (34) and (35) can be combined in matrix form as 

r3N, 




3z 

3z 

3n 



l£ 

3n 




(36) 



Through the selection of the type element to be used in the 
mesh, N^(^,n) is a known function [Ref. 16], which makes 
possible the computation of the left-hand side vector for 
any point within the element boundaries. Similarly, by tak- 
ing the appropriate derivatives of Eqs . (27b) and (27c) the 

2x2 matrix, known as the Jacobian matrix [J], can be deter- 
mined. It follows that the r and z derivatives of the shape/ 
weight functions can be determined for any point of an 
element from 



r 



< 



V 



3N. 1 






3r' 


3z 






3C 


3N. 

1 




_32 




3rJ 




-3n 


3n- 


of 


Eqs 


. (27a) 


th 




(37) 



the derivatives of the shape/weight functions are known for 
a point then it is a simple procedure to determine the 
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derivatives of any other elemental property that has a value 
specified at the nodes. 

The final relationship that is needed for the trans- 
formation is the relationship between the differential change 
in the coordinate directions of the (r,z) plane and the (^,ri) 
plane. As shown by Kaplan [Ref. 19], the required relation- 
ship is 

dzdr = |J |d^dn (38) 



Equation (31a) can now be transformed for integration in the 
(C,ri) plane to the form 



where 



and 





I [B]^ [B]) |j|d?dn 

k 




(39) 



(40) 



(41) 



The Gauss-Legendre method of numerical integration 
was used to obtain a solution to Eq. (39) . It was selected 
because its determined accuracy was easily determined and 
the simple summing procedure used in the solution could be 
efficiently coded. A one dimensional example is used here 
to illustrate the use of the method. 
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The definite integral 



1 

I = / <i)(C)dC 

-1 



( 42 ) 



may be written in the form 







(43) 



where <})^ = <p(^^) 

= Gaussian weight faction for 

The values of the points, called abscissas, and their cor- 
responding weighting function values are catalogued for use. 
The number of points to be used is determined by the order 
of the function to be approximated. In general, a polynomial 
of (2n - 1) is integrated exactly by the use of n Gauss 
points. In two dimensions the Gauss method can be written as 



Equation (39) can now be written in a form that can be coded 
for solution by the computer as 



I = / /<{'(?/ n) d^dn 

-1 -1 



(44) 



which can be written as 



n m 



I = I I w . w j (j) ( , n j ) 



1 3 



(45) 




( 46 ) 
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The scheme used in the program is a two dimensional, three- 

point Gauss integration. A detailed description of the 

T 

evaluation of [B] [B] and the method used to obtain k is 

m 

contained in the description of subroutine STIFF. 

2 . Right-hand Side Vector Evaluation 

In Section C the following relationship for f was 

derived : 

f? ■= / N. f{r,z) dP, (31b) 

^ E ^ 

By using the techniques of Section Dl, Eq. (31b) can be re- 
placed by 

= II I I (47) 

A more detailed description of the specific methods used to 

solve Eq. (47) is contained in the description of subroutine 
FCAL. 
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IV. DESCRIPTION OF PROGRAM MESHGEN 



A. MAIN PROGRAM DESCRIPTION 

MESHGEN was developed in order that the required inputs 
for the program TURBO could be generated in a fast, accurate, 
and conceptually correct manner. The program generates an 
eight-node isoparametric element mesh, computes the related 
connectivity matrix, defines the type of region enclosed by 
each element, computes the tangential blockage factor and an 
estimate of the stream function for each node in the mesh, 
and computes the thermodynamic conditions and velocity at 
the inlet. The inputs required to operate the program are 
the mass flow rate, total temperature, and total pressure at 
the inlet, the blading and machine geometries, RPM, Cp , y, R, 
and scaling constants for the plot of the mesh. The blading 
geometries must be coded in the program as a subroutine that 
uses approximations or design information to express the 
blade variables as functions of radius. The user provides 
the other information in response to interactive prompts. 

The program has two modes of operation, one which generates 
a complete mesh and all of the associated information and 
another which uses a previously generated mesh to compute the 
changes in specific arrays that result from a change in the 
inlet conditions. 
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The program is completely general and may be used for 
either single-stage axial compressor or turbine, and, with 
very minor modifications, can be expanded for use with multi- 
stage machines. The mesh size that can be generated by the 
program is limited only by computer storage considerations. 

To use the program for another machine, the user is required 
to replace subroutine TASKl with a subroutine that can com- 
pute the tangential blockage factor, b, for the desired 
blading. The functioning of the program and its subroutines 
for both modes of operation is described in the section B. 

The program's algorithm in outline form is as follows: 
Algorithm: 

Determine the value of the appropriate operating condi- 
tions and whether a new mesh is desired (Subroutine 
INITl) . 

Obtain the coordinates of the super element corners and 
a description of the division of the super elements into 
the final mesh. Compute the storage allocation parame- 
ters (Subroutine INPUT) . 

Compute the (r,z) coordinates for all nodes in the mesh 
(Subroutine TMESH) . 

Compute the connectivity relationships for the mesh and 
determine the beginning and ending node numbers for the 
rotor and stator (Subroutine CONEC) . 

Compute the array of node numbers where the value of rp 
is to be specified. Compute an initial estimate of the 
nodal stream function distribution and call subroutine 
FLOFCT to determine the inlet conditions (Subroutine 
INIT2) . 

Compute the nodal tangential blockage factor, b, for the 
rotor and stator nodes (Subroutine TASKl) . 

Place the computed values in disk storage (Subroutine 
FILGEN) . 
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Plot the generated mesh on the Tektronix 618 terminal for 
inspection (Subroutine MPLOT) . 

END 

B. SUBROUTINE DESCRIPTIONS 
1 . Subroutine INITl 

Subroutine INITl obtains the value of thermodynamic 
variables and plotting parameters that are required for the 
program in either mode of operation. The user is required 
to provide the values of the mass flow (Ibm/sec) , total tem- 
perature (°R), and total pressure (psia ) , ratio of specific 
heats (y) f g3.s constant ( ft-lbf /lbm-°R) , and the specific 
heat at constant pressure (BTU/lbm-°R) . The scaling con- 
stants are convenient values of r and z used to frame the 
plot of the mesh. If a new mesh is not desired, the program 
exits the subroutine. 

Subroutine INITl determines if a new mesh is to be 
generated by the response of the user to an interactive ques- 
tion. If a mesh is to be generated, the subroutine obtains 
some preliminary information about the flow region. Figure 5 
shows how the user must first divide the flow region into a 
coarse mesh known as super elements, recording the (z,r) co- 
ordinates of the corner points. The minimum number of super 
elements for a single-stage compressor is five so that the 
three duct regions, the rotor, and the stator may be repre- 
sented. The maximum number of super elements and the subse- 
quent division into mesh elements is limited only by the 
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storage limitations of the machine. In practice, the maxi- 
m\am number of elements is limited by the number of equations 
that may be solved by the program TURBO. It is also limited 
by the fact that only one super element may be used to de- 
scribe a rotor or duct region and that the super elements for 
these regions may only be further subdivided into a single 
column of elements. The latter restrictions are for compati- 
bility with the computation procedures used in the program 
TURBO. A decision must then be reached on what subdivision 
of the super elements will provide a mesh that is sufficient- 
ly fine to yield accurate results efficiently. Once the flow 
region has been divided into super elements and a determina- 
tion as to the total number of rows and columns of mesh 
elements has been made, the user can input the appropriate 
values in response to the prompts provided by the program. 

2. Subroutine INPUT 

Subroutine INPUT uses interactive prompts to obtain 
a description of the turbomachine's flow passage geometry and 
the desired mesh characteristics. The user must provide the 
program with the coordinate values of the super element nodes 
as shown in Fig. 5. The values are entered as nodal pairs on 
a station-by-station basis. The first (z,r) coordinate 
entered is the node on the shroud and the second lies on the 
hub. The program then asks the user to identify the type of 
region enclosed in each super element and into how many 
columns each super element is to be divided. 



39 



Enough information is now available for the program 
to compute and store the information required for the program 
TURBO. Subroutine INPUT stores the responses to the inter- 
active prompts, determines the values of the storage location 
pointers, and determines if any storage limitation has been 
exceeded. If any storage limitation is exceeded, the sub- 
routine calls the appropriate error subroutine to halt execu- 
tion. The interactive portion of the subroutine is omitted 
if a new mesh is not desired. However, the values of the 
pointers are calculated and storage requirements are evalu- 
ated as before. A listing of the pointers and the corres- 
ponding variables is given in Appendix A. 

3 . Subroutine TMESH 

Subroutine TMESH computes the nodal coordinate values 
from the information obtained in subroutines INITl and INPUT. 
The subroutine uses linear interpolation in the axial direc- 
tion and a quadratic scheme in the radial direction. The 
radial interpolation scheme maintains the difference in the 
squares of the radius of the nodes as a constant. This al- 
lows the assumption of equal mass flow between the nodes for 
uniform axial velocity which is used to determine the initial 
estimate of the nodal stream function distribution. The 
nodes are numbered with the assumption that the fluid flow 
is from left-to-right in the mesh and that the number of 
columns of elements is greater than or equal to the number 
of rows of elements. The node at the inlet shroud is labeled 
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1 and the node at the outlet hub is labeled n for an n node 



mesh. The numbering proceeds on a column-by-column basis 
from top-to-bottom. The total niimber of rows, columns, and 
mesh elements is displayed to the user. The mesh computa- 
tions are omitted if a new mesh is not created and elemental 
count information is displayed as before. 

4 . Subroutine CONEC 

Subroutine CONEC generates the connectivity matrix 
for the mesh. The connectivity matrix is used to keep track 
of which nodes are assigned to which elements and the ar- 
rangement of the assigned nodes within the element. The con- 
nectivity relationships for a three element stack is shown 
in Fig. 3. Additionally, the subroutine determines the first 
and last nodes of the rotor and stator. 

5 . Subroutine INIT2 

Subroutine INIT2 stores the node numbers for nodes 
where the value of 'p is specified as a known quantity. The 
array is used in the program TURBO to apply the boundary 
conditions. The array is not computed if a new mesh is not 
desired. For either mode of operation, subroutine INIT2 
computes the values of the inlet thermodynamic variables, 
the inlet axial velocity, and an initial estimate of the 
nodal stream function distribution. Subroutine FLOFCT is 
used to calculate the inlet conditions and is described in 
the next section. The initial stream function is computed 
from the boundary conditions at the shroud and hub. Along 
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the shroud, is specified to be equal to (m/2ir) and along 
the hub to be zero. The value of along the inlet is de- 
termined by a linear interpolation because of the quadratic 
node spacing in the radial direction. The remaining nodal 
values of are obtained by an assumption that ip is a con- 
stant along the streamwise boundaries of the elements. The 
assumption is obviously in error, but it observes the boun- 
dary conditions and provides a reasonable first estimate to 
begin the iteration scheme used in the program TURBO. 

6 . Subroutine FLOFCT 

Subroutine FLOFCT computes the inlet conditions for 
a passage with a specified geometry, mass flow rate, total 
temperature, total pressure, and an assumed uniform inlet 
velocity. The method followed is the "total flow function" 
formulation proposed by Shreeve [Ref. 20]. The total flow 
function is defined as the ratio of the mass flux to the 
limiting or stagnation mass flux. The following definitions 
and equations are required for the method: 



= [2H]*^-^ (48) 

X = V/V^ (49) 

T/T^ = 1 - (50) 

Y 

. (Y-1) 

p/p^ = (1 - X^) (51) 

1 

, (Y-1) 

p/p = (1 - X^) (52) 
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From the definition of the total flow function, c(), it follows 
that 

1 

<p = pv/p^v^ = X(1 - X^) (53) 

The value of 4> at the inlet can be calculated at the inlet 
from the assumed uniform conditions by the expression 

= m/(p^V^A) (54) 

The value of X at the inlet is found through the following 
Newtonian iteration: 

<p^ = m/(p^V^A) (54) 

Assume X = 0.1 to assure the selection of the subsonic root. 

1 

2 

Calculate: b = X(1 - X ) (53) 

and d(|)/dX = {1/X - 2X/ [ (y - 1) (1 - X^ ) ] } 

Test I - (j) I < £ 

If the test fails then calculate 

X = X + (4)^ - (d(p/dX) 

and recalculate <p until convergence is reached. Once con- 
vergence is reached the inlet conditions are computed by 
equations (50) through (52). 

7 . Subroutine TASKl 

Subroutine TASKl computes the nodal tangential block- 
age factor for the blading of the NASA TASKl transonic com- 
pressor. The value of the blockage factor is determined by 
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b 



1 - t/s 



(12a) 



The values of t and s are obtained by approximations to the 
known blading geometry that are expressed as functions of 
radius. The maximum thickness of the blade is artificially 
defined to be at the mid-point of the chordline to ensure 
that the factor is accounted for in the calculations in the 
program TURBO. This artificiality could easily be removed 
through a modification to the axial interpolation scheme used 
in rotor and stator super elements. Subroutine TASKl is the 
only machine dependent subroutine in use in the program and 
would need to be replaced with an appropriate substitute in 
order for the program to be used on another machine. The use 
of the subroutine is omitted if the user does not desire a 
new mesh. 

8 . Subroutine FILGEN 

Subroutine FILGEN places the computed mesh parameters 
on disk storage for use in the program TURBO. If the limited 
mode of operation was selected by the user, the subroutine 
only updates the values of the parameters that change for a 
new inlet condition. A listing of the output parameters and 
their corresponding storage location is given in Appendix B. 

9 . Subroutine MPLOT 

Subroutine MPLOT provides an on-line plot of the com- 
puted mesh on the Tektonix 618 graphics terminal. Figure 6 
shows the 63 element, 222 node mesh used in the computations 
of the test cases. The subroutine displayed the mesh through 



44 



direct calls to the subroutines of the library plotting 
package, GRAFF. The subroutine's algorithm is as follows: 
Algorithm: 

Form two Real *4 arrays from the information in the r co- 
ordinate and the z coordinate arrays for plotting 
compatibility . 

Sort the arrays and plot the streamwise boundaries of the 
mesh elements. 

Sort the arrays and plot the transverse boundaries of the 
mesh elements. 

END 

10 . Subroutine ERRl 

Subroutine ERRl is called by subroutine INPUT if the 
storage limitation for Real*8 variables has been exceeded. 

The subroutine displays the amount by which the limitation 
was exceeded and terminates the program's execution. The 
user response would be to increase the value of LIMR if pos- 
sible or reduce the size of the mesh. 

11 . Subroutine ERR2 

Subroutine ERR2 is called by subroutine INPUT if the 
storage limitation for Real *4 variables has been exceeded. 

The subroutine displays the amount by which the limitation 
was exceeded and terminates the program's execution. The 
user response would be to increase the value of LIM4 if pos- 
sible or reduce the size of the mesh. 

12 . Subroutine ERR3 

Subroutine ERRS is called by subroutine INPUT if the 
storage limitation for Integer*4 variables has been exceeded. 
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The subroutine displays the amount by which the limitation 
was exceeded and terminates the program's execution. The 
user response would be to increase the value of LIMI if pos- 
sible or reduce the size of the mesh. 
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V. DESCRIPTION OF PROGRAM TURBO 



Program TURBO solves the quasi-harmonic stream function 
radial equilibrium equation for flow in an axial compressor. 
The program uses the information computed by the program 
MESHGEN to calculate the desired thermodynamic information 
at all nodal points and displays selected values on a graph- 
ics terminal for inspection. 



A. MAIN PROGRAM DESCRIPTION 

The program obtains a solution of the equation 

[kH 4-} = {f} (32) 



An iterative scheme was adopted for this nonlinear problem, 
whereby an estimate of the stream function distribution is 
used to calculate values of the velocity components and 
thermodynamic variables at the nodes of the mesh. These 
computed values are then substituted into Eq . (32) and a new 

value of the stream function distribution is calculated. The 
estimate of the distribution is compared to the calculated 
value to determine if the solution has reached convergence 
according to the following criterion: 



£ > 






( 47 ) 
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m. 














where = estimate of tp at node i 
= solution for 4> at node i 

If the maximum difference for all nodes is less than e, the 
procedure is terminated. If the maximum difference exceeds 
some specified value of e, the new estimate of ^ to be used 
for the next iteration is determined using 






n+ 



1 




a 





(48) 



ri"H 1 

where = new estimate of tp for the next iteration 

a = under relaxation factor required for conver- 
gence because of the strong nonlinear proper- 
ties of Eq . ( 32 ) . 

The process of constructing the inputs required for Eq . 
(32) is repeated until convergence is obtained. The details 
of calculating the inputs and constructing the stiffness 
matrix and the right-hand side vector are contained in de- 
scriptions of the program's subroutines. 

The program's algorithm follows in outline form: 

Obtain the computational constants (SUBROUTINE RDATA) . 

Determine the values of the pointers used to partition the 
storage arrays (SUBROUTINE INITl) . 

Set the initial values for all storage locations to 0.0 or 
0 as appropriate (SUBROUTINE ZEROI) . 

Recall from storage the externally computed input values 
and initialize the inlet conditions (SUBROUTINE INPUT) . 

Calculate a velocity and thermodynamic variable distribu- 
tion based on the assumed stream function distribution and 
the inlet conditions (SUBROUTINE DIST) . 
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From the distributions obtained in DIST, calculate the 
right-hand side vector {f} (SUBROUTINE FCAL) . 

Using the density and blockage factor distributions, form 
the stiffness matrix [K] (SUBROUTINE STIFF) . 

Solve the system of linear equations to obtain a new stream 
function distribution (SUBROUTINE DSIMQ) . 

Place the solution vector in its proper storage location 
(SUBROUTINE REPLA) . 

Compare the original stream function distribution to the 
solution vector to determine the maximum difference in the 
distributions for all nodes (SUBROUTINE TEST) . 

Determine if the convergence criterion has been satisfied. 

If convergence has not been obtained, perform the relaxa- 
tion iteration to update the estimate of the stream func- 
tion distribution (SUBROUTINE RELAX) , prepare for another 
cycle (SUBROUTINE NOCON) , and then return to SUBROUTINE 
DIST for further calculations. 

If the convergence criterion has been satisfied, print the 
results (SUBROUTINE OUTPUT) and display selected informa- 
tion on the graphics terminal (SUBROUTINE MPLOT) . 

END 



B. SUBROUTINE DESCRIPTIONS 

Sections 1 through 23 provide a detailed description of 
the subroutines of program TURBO. 

1. Subroutine RDATA 



Subroutine RDATA is used to store the following com- 
putational constants: 

(a) Logical Input/Output variable NREAD and NWRITE. 

(b) Relaxation factor. 

(c) Limits for the storage arrays. 
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(d) Three-point Gaussian abscissas and weighting values. 

(e) Constants used for conversions between different units. 

2 . Subroutine INITl 

Subroutine INITl determines the values of the point- 
ers used to partition the Real*8, Real*4, and Integer*4 ar- 
rays and determines whether the storage limitations for any 
of the arrays has been exceeded. If the storage limitations 
have been exceeded the subroutine will halt execution by 
calling the appropriate error subroutine. A listing of the 
pointers and their corresponding array names is contained in 
Appendix C . 

3 . Subroutine ZEROI 

Subroutine ZEROI sets the initial value of all arrays 
equal to 0.0 or 0 as appropriate. 

4 . Subroutine INPUT 

Subroutine INPUT retrieves required input information 
from its corresponding disk storage location. The informa- 
tion must be placed in storage before running program TURBO. 
The usual method of generating the information and placing 
it in storage is through the use of the program MESHGEN. 

Subroutine INPUT also initializes the inlet condi- 
tions to their proper values, and modifies the nodal blockage 
factors to account for end-wall boundary layer effects. No 
attempt was made to include a global method for calculating 
the blockage factors; rather, a method similar to the one 
used by Hirsch and Warzee [Ref. 4] was used. The full method 
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used by Hirsch and Warzee was to artificially reduce the 
size of the flow passage by reducing the boundaries of the 
mesh, followed by the application of a general blockage fac- 
tor to the nodes of the mesh. In the program TURBO, no mesh 
modifications are made. The procedure followed was to apply 
a general blockage factor to all nodes, followed by the ap- 
plication of an additional blockage factor to nodes in the 
outer elements in the rotor, stator, and the passage in be- 
tween. Though reasonable results were obtained by this 
method, the handling of the end-wall boundary layers remains 
the most obvious weakness in the code. This is addressed 
specifically in section VII. 

5 . Subroutine DIST 

Subroutine DIST calculates the distributions of 
velocity, density, temperature, pressure, fluid flow angles, 
entropy, and enthalpy using the known blade and machine 
geometry, inlet conditions, and the assumed distribution of 
the stream function. Properties of nodes at the mid-line 
of the rotor or stator blades were assumed to have a value 
equal to the average of the inlet and exit conditions of the 
blade. The elemental calculations are accomplished through 
the control of subroutines SLINE, DUCT, ROTO, and STAT. 

The following is the subroutine DIST's algorithm in 
outline form: 

For each element in the mesh. 

Determine type element for appropriate computations. 
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Duct Elements 



For each node at stations 2 and 3 : 

Determine the location of the streamline and thermo- 
dynamic conditions at station one (Subroutine SLINE) . 

(If the element is along the machine exit plane, en- 
sure that C^ip/dz) = 0.) 

Compute the thermodynamic conditions (Subroutine DUCT) . 

Assign the appropriate values to the proper storage 
location . 

Rotor Elements 



For each node at stations 1: 

Determine the location of the streamline at station 3 
and the 3ii^/3z and the d^/dr at stations 1 and 3 (Sub- 
routine SLINE) . 

Determine the inlet and outlet relative flow angles and 
the outlet absolute flow angle. 

Compute the total-to-total pressure ratio and the adia- 
batic efficiency for the streamline (Subroutine ROTO) . 

Assign the appropriate values to the proper storage 
location . 

For each node at stations 2; 

Determine the location of the streamline and the ther- 
modynamic conditions and the drp/3z and the 3^/ or at 
stations 1 (Subroutine SLINE) . 

Determine the location of the streamline and the 3\p/3z 
and the 3\li/3r at station 3 (Subroutine SLINE) . 

Determine the inlet and outlet relative flow angles and 
the outlet absolute flow angle and the relative devia- 
tion angle. 

Compute the thermodynamic conditions at station 3 (Sub- 
routine ROTO) . 

Compute the value of all properties for the node as 
being the average of the values at station 1 and sta- 
tion 3. 
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Assign the appropriate values to the proper storage 
location . 

For each node at stations 3; 

Determine the location of the streamline and thermo- 
dynamic conditions at station 1 and the value of 3i|;/3z 
and 3<|)/3r at stations 1 and 3 (Subroutine SLINE) . 

Determine the inlet and outlet relative flow angles and 
the outlet absolute flow angle and compute the thermo- 
dynamic conditions (Subroutine ROTO) . 

Assign the appropriate values to the proper storage 
location . 

Stator Elements 

The stator algorithm is the same as the rotor algorithm 
except the outlet absolute flow angle is the only angle 
calculated. The inlet absolute flow angle is determined 
through interpolation. 

6 . Subroutine SLINE 

In order to understand the functioning of this sub- 
routine and others to follow, one must refer to the nomen- 
clature used to describe the eight-node element. Figures 2 
and 3 show the nomenclature clearly and Table 1 demonstrates 
the connectivity. All of the calculations in the program for 
the distributions of velocity, flow angles, and thermody- 
namic properties are founded on the assumption that the 
points in question lie on the same stream surface. Thus the 
objective of the subroutine is to obtain the location of a 
given value of the stream function at a specified station in 
the flow region. The location of the streamline is required 
in order to compute the variables used in [K] and {f}. 
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Through the application of the boundary conditions, 
the nodes along the shroud are defined to lie on one stream 
surface and the nodes along the hub are on another. It is 
possible for all other nodes in the mesh to be on different 
stream surfaces. For these nodes an interpolation scheme 
must be followed to find the (C/H) coordinates of a specified 
stream surface at a given station in the mesh. 

The solution sequence that the program follows starts 
at the top element of the first column of elements in the 
mesh and solves the thermodynamic and velocity conditions 
for all nodes in the element using the assumed stream func- 
tion distribution and the specified inlet conditions. When 
the calculations for the first element are complete, the 
program continues down the column until the calculations are 
complete for the element along the hub. The program then 
sequences to the top element for the next column and con- 
tinues until the calculations are complete for the last ele- 
ment in the mesh. In this sequence it is always possible 
to calculate the conditions at station 1 of an element for 
any interim nodal values of the stream function. 

The process will be described by way of an example 
for one node as shown in Fig. 3. 

Example: Find the (C,n) coordinates of the streamline that 

passes through node 7 of element 1, Node (1,7), 

From the connectivity relationships it is known that 
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"VC.. 





i. 




(Node (1,7)) 



(14) 



The value of (14) is known and the search is begun to find 
two nodal vaules of C at station 1 that bracket the desired 
value, (14). The program first tests to see of (Node (1,7)) 
is greater than (Node (1,5)) . In this case it is not and the 
program would automatically shift and test to see of 
(Node (1,7)) is greater than (Node (2,5)) . In this example 
the value is larger and the same test would be applied to 
(node (2,4)) . Again the answer would be true. The program 
would then test to see if the value of (Node (2,3)) were 
larger than (Node (1,7)). The answer being true would sig- 
nal the program that the location of the streamline had been 
bracketed and a half-interval technique would be applied to 
find the location. As shown in Fig. 4, the value of ^ for 
all locations along station 1 is -1. This fact is important 
for two reasons. One, with ^ known the program is only re- 
quired to iterate on n to obtain convergence. Two, the 
Kronecker delta property of the shape functions means that 
only the shape functions at station 1 have nonzero values 
[Ref. 16]. For the half interval method, the program uses 
the average n of the most recent bracketing as its estimate 
for n. In this example the first estimate of n is equal to 
0.5 and the solution for ijj at (-1., 0.5) can be written as 

’M-1.,0.5) = N 3 (-1. , 0 . 5 ) 11/3 + N 4 (-1. ,0.5)iJ/^ + N3(-1. ,0.5 )iJ;3 
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The solution is then compared to (Node (1.7)) to determine 
if the difference is less than some e. If the difference 
exceeds e, the new estimate for n becomes 0.25 or 0.75 de- 
pending on whether the solution is larger than or less than 
the value of i); (Node (1,7)) . The process is continued until 
convergence is reached. Once 5 srid n for the streamline 
location at station 1 are known, all of the properties for 
station 1 can be determined. (The same method is used to 
find the location of the streamline at station 3 for rotor 
and stator elements.) Having determined the coordinates 
of streamlines at all desired locations it is possible to 
calculate the required (9N^/3r) and (3N^/3z). The computed 
inlet and exit coordinates and conditions are then passed 
to subroutine DIST for use in subroutines DUCT, ROTO, and 
STAT as appropriate for the calculation of the conditions 
at Node (1,7) . 

The following is the subroutine's algorithm in out- 
line form: 

Duct Element 

If the node being investigated is on station one, exit the 
subroutine . 

For stations two and three, determine the streamline co- 
ordinates and the thermodynamic conditions at station one 
and compute the 341 / 3z and 34^/3r at the node. Exit the 
subroutine . 

Rotor/Stator Element 

If the node being investigated is on station one, set all 
inlet thermodynamic variables equal to the corresponding 
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nodal value and compute the 9ijj/3z and the 9tJ;/9r at station 
three. Exit the subroutine. 

For station two, determine the streamline coordinates and 
the thermodynamic conditions at station one and compute the 
streamline location and the 9if//9z and the 9i|;/9r at station 
three. Exit the subroutine. 

For station three, determine the streamline coordinates and 
the thermodynamic conditions at station one and compute the 
dip/dz and the dip/ dr at station three. Exit the subroutine, 

7 . Subroutine DUCT 

Subroutine DUCT determines the values of temperature, 
pressure, and density for the elemental nodes at stations two 
and three. An iterative procedure is used with the knowledge 
that angular momentum is a constant in a duct. The initial 
estimate of the velocity at station 1 is made using the com- 
puted values of 9iJ;/9z, 9ij;/9r, r, and b at the node (Subrou- 
tine SLINE) and by choosing the estimate of the density at 
the node to be equal to the density at station 1. The fol- 
lowing sequence of calculations is repeated until convergence 
on a value of the exit velocity: 



^m2 = a/(P2^2^2^^ * lidip/dz^)^ + (dip/dr^)^'] 



0.5 



“2 = 

?2 = - ( y - 11 / 2 . ^ .^^2 

?2 = ^'^2'^'^Tl^ 



V 




Test if V 



m2n 



V 



m2 



< £ 
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The total conditions are then calculated from the static 
conditions and the computed velocity. 

8 . Subroutine ROTO 

Subroutine ROTO calculates the change in the relative 
flow angles, the velocity, and the thermodynamic properties 
along a streamline across a (compressor) rotor element. The 
program uses the conditions at station one and the location 
of the streamline and the partial derivatives of the stream 
function at station 3, all of which were calculated in sub- 
routine SLINE. The relationships in subroutine ROTO are 
derived from cascade correlations and known property rela- 
tionships for a streamline in a rotor. 

The first step is the calculation of the inlet and 
exit relative flow angles. For inlet flow without swirl, 
the relative inlet flow angle can be calculated using 

= tan-hUj/v^^) 

The incidence angle is calculated using the known blade 
geometry and inlet angle, since 




where is the angle formed between the tangent to the blade 
chordline and the axial direction. In order to calculate the 
exit relative flow angle one must determine the deviation 
angle, 5. The program uses the correlations and equations 
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^1 







derived by NASA [Ref. 21]. The specific sequence of equa- 
tions, using the notation of Ref. 21, is as follows: 





^ref ^2D (^C ~ ^2D ) 




+ (m/a*^) + (i^ 



i2D> 



C ~ 2D ^ 



^ef = ^2 dM^C - ^2d) 




B 2 = ~ -i + 5 

The expressions used to approximate the NASA correlation 
curves were those obtained by Crouse of NASA lewis and were 
provided to the author by Okiishi [Ref. 22]. 



are known it is possible to determine the conditions at the 
rotor element exit. The initial exit velocity is obtained 
in the same way as in subroutine DUCT. The following se- 
quence of equations is solved iteratively until convergence 
for the exit velocity is reached: 



When the inlet conditions and relative flow angles 



a 



2 




tan 



D = 1 - (W2/W^) + (r^W^^ - r^Vl^^)/{2 W^r) 



00 = curve fit to co(D,cos B,o) 
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T 2 = - W 2 /constant 



?2 = Pg2(T2/Tj,,)*(Y/Y-l) 



P2 = P2/ (RTj) 



'"min = (1/(P2-^2‘=2')*['5*''3^'2' <5>^/^■:)2'] 



0.5 



Test if V . - V _ < £ 

min m2 



When convergence is reached the total conditions are calcu- 
lated from the static conditions and the computed velocity. 
The value of the entropy change is calculated by: 



S = R ln(P^ 2 /P-pi) * constant 



9 . Subroutine STAT 

Subroutine STAT calculates the stator element exit 
absolute flow angle and thermodynamic conditions using the 
knowledge that the total enthalpy is a constant across the 
stator. The initial estimate of the exit velocity is ob- 
tained in the same way as in subroutine DUCT, The following 
sequence of equations is used until convergence for the exit 
velocity is reached; 
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''l = 

D = 1 - (V 2 /V^) + / (2 a V r) 

0 ) = curve fit to w(D,cos S,a) 



^T2 ^T1 ~ “ ^1' 



T = T 
2 T1 



(y-D/2* + 



?2 = P^^(T^/T^^)**(y/y-l) 



P2 = P2/<^’^2> 



V^in = (1/ (P2r2b2) ) * [04 '/Sz) 2^ + 0«i//9r)2^] 



0.5 



Test if 



V . - V - 

min m2 



< £ 



When convergence is reached the total conditions are calcu- 
lated from the static conditions and the computed velocity. 
The value of the entropy change is calculated by the same 
method used by subroutine ROTO. 

10 . Subroutine FCAL 

Subroutine FCAL uses the previously computed distri- 
butions of total temperature, entropy, enthalpy, axial velo- 
city, and tangential velocity to compute the right-hand side 
vector for the global system of equations. In the absolute 
frame of reference, f(r,z) can be expressed in the form 

f(r,z) = (1/V^) T Os/3r) - 3H/ar + (V^/r) O (rV^) /3r) (20) 

The value of f(r,z) within an element is determined using 
the following relationships: 
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n 

T(z,r) = I N^(5,n)T^ 
i 

n 

s (z,r) = y (5 , n) 
i 

n 

V (z,r) = y (C , n) 
i 



n 

H(z,r) = I N^(^,n)H^ 
i 

n 

V(z,r) = I N^(?,n)V^ 
i 

n 

r = I (C,n) 
i 



where the value of N^(5,n) is determined by the value of 5 
and n for a specified Gaussian integration point within the 
element. The required partial derivatives are found in a 
simple and direct way. To illustrate, the (3H/3r) is de- 
rived as follows: 

n 

H(z,r) = I 
i 

n n 

(3H/3r) = y (3N./3r)H. + V N.(3H./3r) 

^ 1 1^11 
1 1 

and since is a constant then 

n 

3H/3r = I (3N./3r)H. 
i 

where (3N^/3r) is found by Eq. (37), and is the appro- 
priate nodal value of H. The radial variations in entropy 
and angular momentum are found in the same manner. The same 
procedure is followed for the values of rothalpy and relative 
tangential velocity for rotor elements. 

It is now possible to calculate the quantities in 
the expression for the right-hand side vector at a point. 

All that remains is to apply an integration technique to 
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obtain the value over an element and to assemble the re- 
sulting local contributions into the global equations. As 
shown in section III.D.2, the local contribution for node i 
in an element can be expressed as; 




In the program Eq. (47) is modified to 



e 
f . 



1 



m 1 k 



(47) 



where the Gaussian abscissas and the corresponding product 
of the weight functions are grouped into three one-dimensional 
arrays. At the completion of the summing process, the local 
contribution for f has been calculated for each node in the 
element. The global system is then updated by adding the 
local contributions to the global values through the use of 
the connectivity relationships. 

The following is the subroutine's algorithm in out- 
line form; 

Algorithm; 

Iterate for each element in the mesh. 

Iterate for each Gaussian point. 

Find shape functions, |J|, and [J] 

Find V , T , V , r, rV , (3s/3r), and (3H/3r). 

^ i. LI Ll 

Compute the contributions of the value f at the Gauss 
point to the value of f at each node of the element. 
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Upon completion of the Gaussian integration, add the 
local contribution to the global system. 

END 

The same algorithm is followed for rotor elements with the 
appropriate substitutions of and W . 

K U 

11 . Subroutine STIFF 

Subroutine STIFF uses the computed distributions of 
density and blockage factors to form the stiffness matrix 
for the global system of equations. It was shown earlier 
that the contribution to the elemental stiffness is expressed 
as 



. = fk (r ,z) [ ON ./3r) ON. /8r) + { 9N . / 3z ) ( 3N . / 3z ) ] dfl (31a) 
1] E ^ ^ ^ 

where k(r,z) = (1/prb) (19) 

Again, the elemental properties are considered to have a 
polynomial variation of the form 

n n n 

p(z,r) = In^p^, r^ = iN^r^, and b(z,r) = iN^b^ 



As shown earlier, Eq. (31a) can be converted by the Gauss- 
Legendre method to 




k5, m 



(46) 



The value of k is determined from the definitions of p, b, 
m ^ t ! 

and r by the same methods used in subroutine FCAL. The 

T 

evaluation of [B] [B] is a simple matter to perform. The 
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matrix [B] is simply the column vector {(3N^/3z), (3N^/3r)}. 

Therefore, [B]"^[B] can be written [(9N^/3r) (3Nj/3r) + 

(3N^/3z) (3Nj/3z)]. The value of (3N^/9z) and (3N^/3r) is 
found for all nodes in the element in one step through the 
use of subroutine JACOB. The matrix product can be evaluated 
at a point (z,r) as 

n n 

I I [ (3N^/3r) (3N ./3r) + (3N^/3z) (3N ./3z) ] 
i j 1 3 1 3 

By using the same Gaussian weighting scheme used in subrou- 
tine FCAL, Eq. (46) may be written in the form 

9 n nn 

k®. = Iw, <SN./3r) (3N./3r) + ( 3N • / 3z ) ( 3N . / 3z ) ] | J [ 

ID K ^ X. .^ij 1 D 1 D 

The resulting 8x8 elemental matrix is then added to the 
global stiffness matrix through the connectivity relationships 
Up to this point [K] and {f} have been assembled with 
out regard to the boundary conditions except at the exit plane 
where the (3i(;/3n) = 0 was enforced explicitly during the pro- 
cedures used by Subroutine BIST. Care must be taken to en- 
sure that the boundary conditions for the other three segments 
of the boundary are not violated. As shown in section III.B, 
the boundary condition for the nodes along the shroud, along 
the hub and at the inlet plane of the machine is that the 
value of ^ is specified. If the value of 'p is specified at 
these locations the Eq. (32) must be modified so that p is 
no longer free at these nodes. A standard technique is 
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employed to remove individual equations from a system of 
equations when the degree of freedom represented by the in- 
dividual equations has been removed. 

The following is the subroutine's algorithm in out- 
line form: 

Algorithm: 

Iterate for each element in the mesh. 

Iterate for each Gaussian point. 

Find shape functions, |Jlr and [J] 

Find the value of k at the Gauss point. 

Compute the elemental stiffness matrix. 

Upon completion of the Gaussian integration, add the 
local contribution to the global system. 

Upon completion of the addition of the last element's 
contribution, modify the system of equations to include 
the boundary conditions. 

END 

12 . Subroutine DSIMQ 

Subroutine DSIMQ is a non-IMSL library, double pre- 
cision subroutine that solves a set of n simultaneous equa- 
tions of the form 

[A]{X} = {B} 

where [A] is an nxn matrix 

{X} and {B} are nxl vectors. 

13 . Subroutine REPLA 

Subroutine REPLA places the solution vector obtained 
from subroutine DSIMQ into its proper storage location. 
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14 . Subroutine TEST 

Subroutine TEST determines the maximum difference 
in the assumed nodal distribution of the stream function at 
the beginning of an iteration to the solution of the radial 
equilibrium equation calculated using the assumed distribu- 
tion. The difference in the distributions at a node is de- 
fined as 



calculated value for node i. Convergence is considered to 
be reached when the maximum difference for any node is less 
than a selected reference value, s. 

15. Subroutine RELAX 



obtain an updated estimate of the stream function distribu- 
tion for the next program iteration. The new estimate for 
stream function distribution is calculated as follows; 



16 . Subroutine NOCON 

Subroutine NOCON prepares the program for the next 
iteration by setting the elements of the right-hand side 
vector, {f}, and the stiffness matrix, [K] , equal to zero. 




where is the assumed value at node i and is the 



Subroutine RELAX performs the relaxation scheme to 




(48) 
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17. Subroutine OUTPUT 



Subroutine OUTPUT prints the computed nodal values 
of a majority of the velocities and thermodynamic properties. 
A listing of the values that are printed and the correspond- 
ing units is contained in Appendix D. A sample output list- 
ing is contained in Appendix G. 

18. Subroutine MPLOT 



Subroutine MPLOT uses the Tektronix 618 terminal to 
make an online graphical presentation of selected variables 
at the rotor inlet, rotor outlet, stator inlet and the stator 
outlet. Figures 7 through 20 provide examples of the plots 
available for display to the individual on request. The 
user is given the option of terminating the plotting sequence 
at any stage of the presentation through the use of inter- 
active prompts. 

The following is the subroutine ' s algorithm in out- 
line form: 

Algorithm: 

Convert the appropriate variables to Real 4 for compati- 
bility with the library plotting package GRAFF. 

Determine the values of axial velocity, relative flow 
angles, total-to-total pressure ratio, and the adiabatic 
efficiency for the rotor inlet, display if requested. 

Determine the values of axial velocity, and relative, 
absolute, and deviation angles for the rotor exit, display 
if requested. 

Determine the values of axial velocity, absolute flow 
angles, and total-to-total pressure ratio for the stator 
inlet, display if requested. 
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Determine the values of axial velocity, and absolute and 
deviation angles for the stator exit, display if requested. 



END 

19 . Subroutine SHAPE 

Subroutine SHAPE calculates the eight nodal shape 
functions for a given point (C/H) • The equations for the 
nodal shape functions are: 



N(l) 




2 2 2 2 
(Cn + 5 + n + ? n + - 


1) /4 


N(2) 


= 


(1 + n - - 5^n)/2 




N(3) 


=Z 


(-^n + c + n + c,n-Cn 


- l)/4 


N(4) 


= 


(1 - - C + 5n^)/2 




N(5) 


= 


(Cn +c +n -^n-Cn - 


1) /4 


N(6) 


= 


(1 - n - + Cn ^)/2 




N (7) 


= 


(- 5 n +5 +n -5n+5n 


- D/4 


N(8) 




(1 - - 1) /2 





The values of the shape functions are stored in the array 
SF, and are returned to the calling portion of the program. 

20 . Subroutine JACOB 

Subroutine JACOB computes the partial derivatives 
of the shape functions with respect to ^ and n and computes 
the elements of the Jacobian matrix, [J] , for a specific 
point (C/H). The equations for the partial derivatives were 
obtained directly from the differentiation of the functions 
shown in the description of subroutine SHAPE. The arrays D 
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and E store the values of the (3N/35) and (3N/3n) respective- 
ly. The Jacobian matrix is calculated by the following se- 
quence of equations: 



n 




J(l,l) = (3z/3^) = 1 


(3N. /3^) z . 


i 


A. J. 


n 




J(l,2) = (3r/3C) = 1 


(3N. /3C) r . 


i 




n 




J(2,l) = (3z/3n) = 1 

i 


(3N^/3n) Z^ 


n 




J(2,2) = (3r/3n) = 1 


(3N^/3n) 



i 



Arrays D and E and the Jacobian matrix are returned to the 
calling location in the program. 

21 . Subroutine ERRl 

Subroutine ERRl is called by subroutine INPUT if the 
storage limitation for Real 8 variables has been exceeded. 

The subroutine displays the amount by which the limitation 
was exceeded and terminates the program's execution. The 
user response would be to increase the value of LIMR if pos- 
sible or reduce the size of the mesh. 

22 . Subroutine ERR2 

Subroutine ERR2 is called by subroutine INPUT if the 
storage limitation for Real 4 variables has been exceeded. 

The subroutine displays the amount by which the limitation 
was exceeded and terminates the program's execution. The 
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user response would be to increase the value of LIM4 if pos- 
sible or reduce the size of the mesh. 

23 . Subroutine ERR3 

Subroutine ERR3 is called by subroutine INPUT if the 
storage limitation for Integer 4 variables has been exceeded. 
The subroutine displays the amount by which the limitation 
was exceeded and terminates the program's execution. The 
user response would be to increase the value of LIMI if pos- 
sible or reduce the size of the mesh. 
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VI. RESULTS AND DISCUSSION 



A. PROGRAM VERIFICATION 

Four operating conditions of the NASA TASK-1 compressor 
were used to test the capabilities of the programs MESHGEN 
and TURBO. In all cases the 63 element, 222 node mesh with 
an under-relaxation factor of 0.24 as recommended by Hirsch 
and Warzee [Ref. 4] were used. Selected por^tions of the re- 
sults obtained are presented in Figs. 7 through 76. The 
points annotated as "observed values" were obtained from the 
material published in Refs. 23 and 24. The values attributed 
to Gavito were obtained from Ref. 8 and those attributed to 
Hirsch from Ref. 4. A discussion of the predictions for the 
various conditions are presented in the sections that follow. 

1 . Test Case 1 

For test case 1 the operating point was defined as a 
rotor speed of 50% design speed and an inlet mass flow rate 
of 107.6 Ibm/sec. The author was unable to locate this spe- 
cific operating point in Ref. 23 or 24 and must assume that 
in Ref. 4 the mass flow rate was modified to conform to the 
end-wall boundary layer scheme described in that reference. 
Therefore, it was necessary to use the observed values pub- 
lished by Hirsch and Warzee in Figs. 21 through 30. The 
relative differences found between the present predictions 
and the reported observations are given in Table 1. 
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a. Comparison to the Work of Gavito 

Figures 21 , 22 , 23 and 24 compare the results 
obtained by Gavito with the predictions of the present pro- 
gram. A significant improvement has been obtained at all lo- 
cations. That this was possible was due in large measure to 
the solid foundation to the present work provided by Gavito ' s 
program and to the excellent documentation given in Ref. 8. 

b. Comparison to the Work of Hirsch and Warzee 

The predictions of the program TURBO compare 

quite faborably with those of Hirsch and Warzee. As shown 
in Figs. 25, 26, 29 and 30 the predictions of the two pro- 
grams have almost identical average relative errors for the 
velocity profiles. The predictions of Hirsch and Warzee 
tend to have better agreement in the rotor and stator tip 
regions, while the program TURBO has slightly better agree- 
ment near the hub. The program TURBO ' s predictions had a 
3.7% and 2.5% average error at the rotor inlet and exit re- 
spectively with a maximum error of 4.6% at the inlet and 7.0% 
at the outlet. The stator inlet velocity predictions had an 
average relative error of 2.6% and maximum error of 5.8% and 
the outlet predictions had a 2.0% average error with a maxi- 
mum error of 6.0%. The prediction of both programs for the 
velocity profiles show excellent agreement with the observed 
values . 

Hirsch and Warzee ' s program consistently produced 
flow angle predictions with closer agreement to the observed 
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values for the published rotor outlet angles. Though the two 
programs had the same average errors of 3.3° for the relative 
flow angles and 4.8° for the absolute flow angles, Hirsch and 
Warzee ' s program provided better qualitative distributions. 

The difference is clearly shown in Figs. 27 and 28. 

Hirsch and Warzee did not publish predictions of 
total pressure ratios or adiabatic efficiencies, so the pre- 
dictions made by TURBO for these parameters were not pre- 
sented. It is assumed that no significant differences could 
have occurred because of the similarity of the results for 
the velocity profile and flow angles discussed earlier. 

2 . Test Case 2 

Because of the apparent modification in the mass flow 
rate which was assumed in test case 1 and the lack of compara- 
tive data for all quantities predicted by the program TURBO, 
another operating point at 50% design speed was compared. 

The operating condition for case 2 was defined as a mass flow 
rate of 114.7 Ibm/sec at a speed equal to 50% of design, 
which corresponded to reading 38 of Ref. 24. The results for 
case 2 are presented in Figs. 31 through 44, and a summary 
of the relative differences between the predictions and ob- 
servations is contained in Table 2 . 

3 . Test Case 3 

Test case 3 corresponded to reading 45 of Ref. 24, 
which was defined as a speed equal to 70% design and a mass 
flow rate of 151.55 Ibm/sec. When reviewing the results 
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presented for this case, one should note the decline in the 
agreement between the program's predictions and the observed 
values. It is the author's opinion that the degradation is 
primarily caused by two factors. The first is the formula- 
tion used to compute the meridional velocity change across 
the rotor and the other is the application of a single block- 
age factor to all nodes to account for the end-wall boundary 
layers. Both factors are much more significant at 70% design 
speed than they were at 50%. At 70% design speed the rotor 
tip relative Mach number is about 0.94. This would require 
the program to account for transonic effects at the tip. 
Second, the mass flow and absolute Mach number of the flow in 
all regions is significantly higher at 70% design speed. 
Therefore, it is unlikely that a single blockage factor will 
work satisfactorily in all regions of the machine. It is 
hoped that both areas will be addressed in any future work 
on the program. 

The results for test case 3 are presented in Figs. 45 
through 58 with the corresponding differences between the 
predictions and observations summarized in Table 3. 

4 . Test Case 4 

The operating condition of test case 4 was at 80% de- 
sign speed point with a mass flow rate of 174.54 Ibm/sec, 
corresponding to reading 50 of Ref. 24. Figures 59 through 
72 and Table 4 present the results of the program's predic- 
tions and comparisons to the observed values. As expected. 
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and for similar reasons to those cited in test case 3, the 
agreement between the program's predictions and observed 
values is significantly poorer than any of the three previous 
cases . 

B. POINTS OF INTEREST 

The results produced by the program are highly dependent 
on the value of the general blockage factor used to account 
for the end-wall boundary layers. This factor influences 
both the quality, in terms of agreement with observations, 
and the stability of the solution. Figures 73 through 76 
show the axial velocity distributions for the rotor and sta- 
tor for test case 4 with a blockage factor of 9% instead of 
the 6% factor used to obtain the results shown in Figs. 59 
through 72. A comparison of corresponding velocity profiles 
clearly demonstrates the factor's pronounced influence on 
the program's solution. The general blockage factor also has 
a strong influence on the program's convergence rate. In 
some cases the factor can cause the program to become oscil- 
latory or even divergent. 

For the low speed cases of 50% and 70% design, additional 
blockage factors had to be applied to the duct element be- 
tween the rotor and stator tips to obtain accurate results. 

As shown in the program listing for subroutine INPUT of pro- 
gram TURBO, the factors used for 50% design speed were much 
higher than the factors used for 70% design speed and that 
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no additional factors were used for 80% design speed. A 
global method of calculating the end-wall blockage factor 
must be incorporated if the program is to become independent 
of inputs other than physical constants. 

The deterioration of the program's predictions with in- 
creasing Mach number and its failure to run for test cases 
with strong supersonic relative velocities at the tip demon- 
strate the need to provide the program with a method of 
handling supersonic relative velocities. Hirsch and Warzee 
[Ref. 15] showed a method of extending the radial equilibrium 
formulation used in the present code to supersonic flow. 

They presented comparisons of predictions obtained by this 
method to observations of the NASA TASK-1 transonic compres- 
sor at 100% design speed. The results were impressive and 
clearly showed that the method is valid for relative velo- 
cities in excess of Mach 1.4. It is strongly recommended 
that the first effort at improving the code be an effort to 
modify TURBO to include the method shown in Ref. 15. 
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VII. CONCLUSIONS AND RECOMMENDATIONS 



A computer program based on the finite element technique 
has been developed and has been verified satisfactorily for 
computing flows through subsonic axial flow compressor 
stages. Minor modifications have been suggested to allow 
transonic stages to be calculated. 

The code was written in such a way that it could be 
readily adapted to compute either turbines or compressors 
with multiple stages. Before such extensions are attempted 
however, the following specific recommendations are made to 
improve the present compressor code. 



A. PROGRAM MESHGEN 

1 . Incorporate some of the two-dimensional techniques of 
Adamek [Ref. 25] to improve the efficiency of the 
code . 

2. Review the code to find improvements in storage allo- 
cations and computational efficiencies. 

3. Modify the program to track the first and last nodes 
of the rotor and stator as subscripted variables so 
that the program can be used to generate the appro- 
priate mesh parameters for a multi-stage machine. 

4. Convert subroutine MPLOT to the DISPLA system. 



B . PROGRAM TURBO 

1. Incorporate a method for the global calculation of the 
blockage and losses created by the end-wall boundary 
layers . 
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2. Convert the storage of [K] and the solution technique 
for the program to at least a symmetric banded scheme 
or if possible to a skyline equivalent scheme. 

3. Test the program on a variety of machines and operating 
conditions . 

4. Obtain expressions that approximate the NASA correla- 
tion curves for 65-series blading. 

5. Incorporate methods for the prediction of stall/ surge. 

6. Take advantage of the modular form of the program and 
include a variety of correlation techniques as a user 
selected option. 

7 . Review the program for improved storage and computa- 
tional techniques. Specifically, determine ways to 
take fuller advantage of the dynamic dimensioning 
scheme [Ref. 16] used by the program. 

8. Convert the rotor inlet calculations to allow the 
value of Si to have nonzero values so that the program 
can be extended to multi-stage analysis. 

9. Modify the use of the values of the beginning nodes of 
the rotor and stator to subscripted variables so that 
the analysis can be extended to multi-stage machines. 

10. Convert subroutine MPLOT to the DISPLA system. 

11. Develop iterative schemes for calculating the flow 
angle, the velocity distribution changes and the 
thermodynamic property changes across a turbine rotor 
and stator for inclusion in subroutines ROTO and STAT. 
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TABLE 1 



Connectivity Relationships for Figure Three 



Element 

Number 



Local Node 
Number 



Global 

Number 



1 

1 

1 

1 

1 

1 

1 

1 



1 

2 

3 

4 

5 

6 

7 

8 



12 

8 

1 

2 

3 

9 

14 

13 



2 

2 

2 

2 

2 

2 

2 

2 



1 

2 

3 

4 

5 

6 

7 

8 



14 
9 

3 

4 

5 

10 

16 

15 



3 

3 

3 

3 

3 

3 

3 

3 



1 

2 

3 

4 

5 

6 

7 

8 



16 

10 

5 

6 
7 

11 

18 

17 
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TABLE 2 



Compressor Measurements 


at 50% Design 


Speed 




Average 

Difference 


Maxiir 

Differs 


Rotor Inlet 


Axial Velocity 


4.6% 


7.2% 


Relative Angles 


1.5“ 


3.1“ 


Total Pressure Ratio 


0.7% 


1.4% 


Efficiencies 


4 . 3% 


11.4% 


Rotor Outlet 


Axial Velocity 


3.2% 


6.7% 


Relative Angles 


1.6“ 


2.8° 


Absolute Angles 


1.5“ 


4.2° 


Deviation Angles 


2.2“ 


3.0“ 


Stator Inlet 


Axial Velocity 


3.4% 


6.8% 


Absolute Angles 


2.5“ 


4.2“ 


Total Pressure Ratio 


0.3% 


1.2% 


Stator Outlet 


Axial Velocity 


1.7% 


5.7% 


Absolute Angles 


0.6“ 


1.5° 


Deviation Angles 


1.4“ 


2.6“ 
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TABLE 3 



Comparison of Program Predictions with 


NASA Task-1 


Compressor Measurements 


at 70% Desi 


gn Speed 




Average 

Difference 


Maximum 

Difference 


Rotor Inlet 


Axial Velocity 


4.8% 


7.4% 


Relative Angles 


1.14° 


1.8° 


Total Pressure Ratio 


1 . 1% 


2.0% 


Efficiencies 


3.2% 


4.8% 


Rotor Outlet 


Axial Velocity 


4 . 1% 


7.4% 


Relative Angles 


2.0° 


3.2° 


Absolute Angles 


3.6° 


5.5° 


Deviation Angles 


1.6° 


3.5° 


Stator Inlet 


Axial Velocity 


4.0% 


8.8% 


Absolute Angles 


3.9° 


5.5° 


Total Pressure Ratio 


0 . 5% 


2 .1% 


Stator Outlet 


Axial Velocity 


3.6% 


7.4% 


Absolute Angles 


0.6° 


1.1° 


Deviation Angles 


1 .5° 


2.4° 
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TABLE 4 



Comparison of Program Predictions with NASA Task-1 


Compressor Measurements 


at 80% Design 


Speed 




Average 

Difference 


Maximum 

Difference 


Rotor Inlet 


Axial Velocity 


7.9% 


11.4% 


Relative Angles 


1.3° 


1.5° 


Total Pressure Ratio 


1 . 5% 


2.5% 


Efficiencies 


3 . 1% 


7.9% 


Rotor Outlet 


Axial Velocity 


6.6% 


8.9% 


Relative Angles 


2.9° 


5.5° 


Absolute Angles 


6.8° 


8.5° 


Deviation Angles 


2.4° 


4.7° 


Stator Inlet 


Axial Velocity 


6.9% 


13.9% 


Absolute Angles 


5.6° 


7.0° 


Total Pressure Ratio 


0.9% 


3 . 1% 


Stator Outlet 


Axial Velocity 


8.0% 


20.0% 


Absolute Angles 


0.8° 


1.4° 


Deviation Angles 


1.5° 


2.3° 
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Figure 1. SI and S2 Stream Surfaces 



37 



I 



I 

I 



I 




o 

■ mmm 

2 

o5 



88 



Figure 2. Nomenclature of an Eight-Node Element 
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Figure 3. Example of a Three Element Mesh 



iSici. 






90 



Figure 4, Mapping Relationships from the to the z,r Plane 
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Figure 5. Mesh Generation 
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Figure 6. MESllGEN Generated Plot of the 222 Node Mesh Used in 
the Calculations of the Meridional Through-Flow 
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Figure 7. A TURBO Generated Tektonix 618 Plot of the Rotor 
Inlet Axial Velocity at 50% Design Speed 
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Figure 8. A TURBO Generated Tektonix 618 Plot of 
the Rotor Inlet Relative Flow Angles 
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Figure 9. A TURBO Generated Tektonix 618 Plot of the Total 
Pressure Ratio of the Rotor vs Inlet Radius 
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Figure 10. A TURBO Generated Tektonix 618 Plot of the Adiabatic 
Efficiency of the Rotor vs Inlet Radius 
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Figure 11. A TURBO Generated Tektonix 618 Plot of 
the Rotor Outlet Axial Velocity 
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Figure 12. A TURBO Generated Tektonix 618 Plot of 
the Rotor Outlet Relative Flow Angles 
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Figure 13. A TURBO Generated Tektonix 618 Plot of 
the Rotor Outlet Absolute Flow Angles 
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Figure 14. A TURBO Generated Tektonix 618 Plot of 
the Rotor Outlet Deviation Flow Angles 
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Figure 15, A TURBO Generated Tektonix 618 Plot 
of the Stator Inlet Axial Velocity 
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Figure 16. A TURBO Generated Tektonix 618 Plot of 
the Stator Inlet Absolute Flow Angles 
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Figure 17. A TURBO Generated Tektonix 618 Plot of the 
Stator Total Pressure Ratio vs Inlet Radius 
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Figure 18. A TURBO Generated Tektonix 618 Plot of 
the Stator Outlet Axial Velocity 
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Figure 19. A TURBO Generated Tektonix 618 Plot of 
the Stator Outlet Absolute Flow Angles 




cn 

d) 

Q) 

(D 



a; 

rH 

CT> 

c 



c 

o 

•H 

-u 

03 

•H 

> 

0) 

Q 

-P 

OJ 

f— I 

-P 

D 

O 



P 

O 

4J 

03 

-P 

CO 



(seqouT) eou^^sTQ i^xp^H 



106 



Figure 20. A TURBO Generated Tektonix 618 Plot of the 
Stator Outlet Deviation Flow Angles 
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Figure 21. Comparison of Predictions to Gavito and Observations 
for Rotor Inlet Axial Velocity, 50% Design 
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Figure 22. Comparison of Predictions to Gavito and Observations 
for Rotor Outlet Axial Velocity, 50% Design 
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Figure 23. Comparison of Predictions to Gavito and Observations 
for Stator Inlet Axial Velocity, 50% Design 
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Figure 24. Comparison of Predictions to Gavito and Observations 
for Stator Outlet Axial Velocity, 50% Design 
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Figure 25. Comparison of Predictions to Hirsch and Observations 
for Rotor Inlet Axial Velocity, 50% Design 
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Figure 26. Comparison of Predictions to Elirsch and Observations 
for Rotor Outlet Axial Velocity, 50% Design 
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Figure 27. Comparison of Predictions to Hirsch and Observations 
for Rotor Outlet Relative Flow Angles, 50% Design 
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Figure 28. Comparison of Predictions to Hirsch and Observations 
for Rotor Outlet Absolute Flow Angles, 50% Design 
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Figure 29. Comparison of Predictions to Hirsch and Observations 
for Stator Inlet Axial Velocity, 50% Design 
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Figure 30 , Comparison of Predictions to Hirsch and Observations 
for Stator Outlet Axial Velocity, 50% Design 
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Figure 31. Axial Velocity at the Rotor Inlet, 50% Design 
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Figure 32. Relative Flow Angles at Rotor Inlet, 50% Design 
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Figure 33. Total Pressure Ratio of the Rotor, 50% Design 
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Figure 34. Adiabatic Efficiency of the Rotor, 50% Design 
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Figure 35. Axial Velocity at the Rotor Outlet, 50% Design 
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Figure 36. Relative Flow Angles at Rotor Outlet, 50% Design 
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Figure 37. Absolute Flow Angles at Rotor Outlet, 50% Design 
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Figure 38. Deviation Flow Angles at Rotor Outlet, 50% Design 
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Figure 39. Axial Velocity at the Stator Inlet, 50% Design 
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Figure 40. Absolute Flow Angles at Stator Inlet, 50% Design 
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Figure 41. Total Pressure Ratio at Stator Inlet, 50% Design 
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Figure 42. Axial Velocity at the Stator Outlet, 50% Design 
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Figure 43. Absolute Flow Angles at Stator Outlet, 50% Design 
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Figure 44. Deviation Flow Angles at Stator Outlet, 50% Design 
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Figure 45. Axial Velocity at the Rotor Inlet, 70% Design 
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Figure 46. Relative Flow Angles at Rotor Inlet, 70% Design 
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Figure 47. Total Pressure Ratio of the Rotor, 70% Design 
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Fiyure 48. Adiabatic Efficiency of the Rotor, 70% Design 
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Figure 49. Axial Velocity at the Rotor Outlet, 70% Design 
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Figure 50. Relative Flow Angles at Rotor Outlet, 70% Design 
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Figure 51. Absolute Flow Angles at Rotor Outlet, 70% Design 
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Figure 52. Deviation Flow Angles at Rotor Outlet, 70% Design 
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Figure 53. Axial Velocity at the Stator Inlet, 70% Design 
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Figure 54. Absolute Flow Angles at Stator Inlet, 70% Design 
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Figure 55. Total Pressure Ratio at Stator Inlet, 70% Design 
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Figure 56. Axial Velocity at the Stator Outlet, 70% Design 
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Figure 57. Absolute Flow Angles at Stator Outlet, 70% Design 
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Figure 58. Deviation Flow Angles at Stator Outlet, 70% Design 
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Figure 59. Axial Velocity at the Rotor Inlet, 80% Design 
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Figure 60. Relative Flow Angles at Rotor Inlet, 80% Design 
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Figure 61. Total Pressure Ratio of the Rotor, 80% Design 
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Figure 62. Adiabatic Efficiency of the Rotor, 80% Design 
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Figure 63. Axial Velocity at the Rotor Outlet, 80% Design 
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Figure 64. Relative Flow Angles at Rotor Outlet, 80% Design 
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Figure 65. Absolute Flow Angles at Rotor Outlet, 80% Design 
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Figure 66. Deviation Flow Angles at Rotor Outlet, 80% Design 
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Figure 67. Axial Velocity at the Stator Inlet, 80% Design 
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Figure 68. Absolute Flow Angles at Stator Inlet, 80% Design 
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Figure 69. Total Pressure Ratio at Stator Inlet, 80% Design 
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Figure 70. Axial Velocity at the Stator Outlet, 80% Design 
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Figure 71. Absolute Flow Angles at Stator Outlet, 80% Design 
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Figure 72. Deviation Flow Angles at Stator Outlet, 80% Design 
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Figure 73. Axial Velocity at the Rotor Inlet, 80% Design, 9% Blockage 
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Figure 74. Axial Velocity at the Rotor Outlet, 80% Design, 9% Blockage 
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Figure 75. Axial Velocity at the Stator Inlet, 80% Design, 9% Blockage 
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Figure 76. Axial Velocity at the Stator Outlet, 80% Design, 9% Blockage 



APPENDIX A 



STORAGE ALLOCATION FOR THE PROGRAM MESHGEN 



The following list of pointers and variable names indi- 
cates the storage location of the first value of the corres- 
ponding array: 



REAL 8 Variables 


(Array 


R8) 


Pointer 


Array 


Array 


Name 


Name 


Contents 


J1 


XSE 


Z Coordinates of the Super 
Elements 


J2 


YSE 


R Coordinates of the Super 
Elements 


J3 


XXSE 


Temporary Storage of the Z 
Coordinates of the Super 
Element Subdivision 


J4 


YYSE 


Temporary Storage of the R 
Coordinates of the Super 
Element Subdivision 


J5 


ZC 


Z Coordinates 


J6 


RC 


R Coordinates 


J7 


PSI 


Stream Function 


J8 


B 


Blockage Factor 


J9 




End of Stored Values 
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REAL 4 Variables (Array 04) 



Pointer 


Array 


Array 


Name 


Name 


Contents 


Ml 


OHZC 


Z Coordinates of Streamwise 
Element Boundaries 


M2 


OHRC 


R Coordinates of Streamwise 
Element Boundaries 


M3 


OVZC 


Z Coordinates of Transverse 
Element Boundaries 


M4 


OVRC 


R Coordinates of Transverse 
Element Boundaries 


M5 


OHZCl 


Z Coordinates of Streamwise 
Element Boundaries 


M6 


OHRCl 


R Coordinates of Streamwise 
Element Boundaries 


M7 


OZC 


Real 4 Z Coordinates of Mesh 


M8 


ORC 


Real 4 R Coordinates of Mesh 


M9 




End of Stored Values 


INTEGER 4 Variables (Array 


12) 


Pointer 


Array 


Array 


Name 


Name 


Contents 


LI 


NSEC 


Number of Columns per Super 
Element 


L2 


NTSE 


Super Element Type 


L3 


NTE 


Element Type Identifier 


L4 


NODE 


Connectivity Matrix 


L5 


NBC 


Boundary Condition Nodes 


L6 




End of Stored Values 
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APPENDIX B 



LISTING OF THE 


OUTPUT VARIABLES FOR THE 


PROGRAM MESHGEN 


FORTRAN Name 


Variable 


File 


ZC 


Z Coordinate 


TMESH DATA 


RC 


R Coordinate 


TMESH DATA 


B 


Blockage Factor 


TMESH DATA 


PRESS 


Inlet Static 
Pressure 


FLUID DATA 


PTOT 


Inlet Total 
Pressure 


FLUID DATA 


TEMP 


Inlet Static 
Temperature 


FLUID DATA 


TTOT 


Inlet Total 
Temperature 


FLUID DATA 


RHOSTA 


Inlet Static 
Density 


FLUID DATA 


RHOTT 


Inlet Total 
Density 


FLUID DATA 


WDOT 


Inlet Mass Flow 


FLUID DATA 


CP 


Specific Heat 


FLUID DATA 


R 


Gas Constant 


FLUID DATA 


G 




FLUID DATA 


RPM 


RPM 


FLUID DATA 


VZI 


Inlet Axial 
Velocity 


FLUID DATA 


NODE 


Connectivity Matrix 


NODE DATA 


NTE 


Element Type ID 


NODE DATA 
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NBC 



BC DATA 



Boundary Nodes 
Where ip Specified 

PSI Stream Function STREAM DATA 
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APPENDIX C 



STORAGE ALLOCATION FOR THE PROGRAM TURBO 



The following list of pointers and variable names indi- 
cates the storage location of the first value of the corres- 
ponding array: 

REAL 8 Variables (Array R8) 



Pointer 


Array 


Array 


Name 


Name 


Contents 


NPl 


ZC 


Z Coordinates 


NP2 


RC 


R Coordinates 


NP3 


B 


Blockage Factors 


NP4 


ALP 


Absolute Flow Angles 


NP5 


BE 


Relative Flow Angles 


NP6 


H 


Total Enthalpy 


NP7 


HS 


Static Enthalpy 


NP8 


VZ 


Axial Velocity 


NP9 


VR 


Radial Velocity 


NPIO 


VU 


Absolute Tangential Velocity 


NPll 


WU 


Relative Tangential Velocity 


NP12 


PSI 


Current Streamfunction Values 


NP13 


PSIO 


Previous Streamfunction Value 


NP14 


F 


Right-hand Side Vector 


NP15 


RHS 


Temporary Storage for F 


NP16 


RHO 


Static Density 



167 



NP17 


RHON 


NP18 


WRL 


NP19 


ETA 


NP20 


EM 


NP21 


DEVI 


NP22 


PRAT 


NP2 3 


TEMP 


NP24 


TTOT 


NP25 


PRESS 


NP26 


PTOT 


NP27 


RHOTT 


NP28 


HR 


NP29 


ENTROP 


NP30 




REAL 4 Variables 


(Array 04 


Pointer 

Name 


Array 

Name 


NPOl 


OVEL 


NP02 


ORC 


NP03 


OBE 


NP04 


OALP 


NP05 





Not Used 

Angular Momentum Vector 

Adiabatic Efficiencies 

Stiffness Matrix Elements 

Rotor/Stator Deviation Angles 

Total-to-Total Pressure Ratio 

Static Temperature 

Total Temperature 

Static Pressure 

Total Pressure 

Total Density 

Rhothalpy 

Entropy 

End of Stored Values 

Array 

Contents 

Velocity at a Given Station 
R Coordinates 
Relative Flow Angles 
Absolute Flow Angles 
End of Stored Values 
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INTEGER 4 Variables (Array 12) 



Pointer 


Array 


Array 


Name 


Name 


Contents 


NPIl 


NFS 


Nodes for F Calculation 


NPI2 


NBC 


Boundary Nodes 


NPI3 


NTE 


Element Type Identifier 


NPI4 


NODE 


Connectivity Matrix 


NPI5 




End of Stored Values 
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APPENDIX D 



LISTING OF 


THE OUTPUT VARIABLES FOR THE 


PROGRAM TURBO 


Jting Name 


Variable 


Units 


PSI 


Stream Function 


Ibm/sec 


VZ 


Axial Velocity 


ft/ sec 


VR 


Radial Velocity 


ft/ sec 


R 


Radius 


inches 


DENSITY 


Static Density 


Ibm/ft^ 


WRL 


Angular Momentum 


ft^/sec 


HT 


Total Enthalpy 


BTU/lbm 


VT 


Absolute Tangential 
Velocity 


ft/ sec 


WT 


Relative Tangential 
Velocity 


ft/sec 


HS 


Static Enthalpy 


BTU/lbm 


TEMP 


Static Temperature 


°R 


TTOT 


Total Temperature 


°R 


PRESS 


Static Pressure 


psia 


PTOT 


Total Pressure 


psia 


RHOT 


Total Density 


Ibm/ ft^ 


ALPHA 


Absolute Flow Angle 


Degrees 


BETA 


Relative Flow Angle 


Degrees 
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APPENDIX E 



LISTING OF THE PP.OGRAM MESH GEN 



FILE: ^EShCEN Al NAVAL PCSTG'^ A JLATE SCHOOL 



+ +44>f + -*- f + +++ + + + + + + 

+ f > ^ 4 + 



PRCGPA/^ .'-EShGE‘J 



44 + 4-1 444 + 444 

444444444444 
44 
44 
44 

44444 1444444444444444444444444 
4+444444^4 44 4444444444^4+44444 
444+444+444 4+44+44444 44 444444 + 

This P^^CGPA.*^ FPCCUCFS A =^ECTA^GULAP »IGHT-^iCOED 

ETR ic g:- n c.= arhitrary otmensi 'n x ^ given 

Th== CC?XEF rCCFS n p THE mlSI-'S ’'S';PE^ c L E:^ S . 

THE PkCC-kAM ALSC Cr^^'^lTE^. AN INITIAL ST-EA-i rj-NETIfN 
C IST^ T^^LT in\ , TAr,GE^TlAL BLCCnAGE FACTf:RS< THE 

aphkopriate I met cc;iniTrcNS neeg fcr the pp'^GRir-i tupgg, 
THE RRCCRAM IS ("NLY Li.*’ITE.) bv ThE S^ACE M:"CAT£r) 

ThE ARP^VS CAt IP GR /AChiNE L I'M TAT I 



4 4 
44 
44 
44 
44 
44 
44 
4 4 
+ 4 



:> • 



4 4 4 
4 4 4 
44 4 
44 
44 
4 4 
4 4 
4 4 
4 4 4 
44 
4 4 
4 4 
4 4 
4 4 
44 
4 4 
4 4 
4 4 
4 4 
4 4 4 



c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 

c 4444 4 4 4 44+44 + ■* 44 444+4444 + 4+ 4444+4 + 4+4+44 44i-f. 4.4-44-*-44 + + + + 

C 4-+44444+44 4 444 4+ 4+444 4 + + + +4444 + 4444 4++++444+4444444444+4444444 + 4+44i 

C 

IMPLICIT PEAL^E( A-G,?-«Z) , PEAL -4(H) 

INTEGEk^A YT f NC ,N*C1, IC,'^Rp 1 , t YN*- , r;SP2, N2 

INTEGE'^^^*^ IAN'S 

CCHYf N / 1NT4/ Nk ,VP I,Nr,NCl» IC 

/^CCU^T/ >RCv>, , YNS FC 

CCNM^'N /NCCJNT / ^ ,.\GCL1 » N E » N'P OT C ,N ST AT 

CCYMf N /iNP^I NT / J It JE , JE t ^ At »J6 ,J 7 , Jot j 9, JlJ t J 1 1 , J12 , J1 3 I J14 , 
ILl tL2tL3 tl-t L5 tLc t'^l t ^2 t Y ^ t Y4 t 3 t N6 , .v7t'^ot^'9 
CCf^MrN /FHAR/ P^MfOCC) 

CC>YCN IJ(3^jC) 

/CFAR^/ CA(3GCO) 

LI^R = 5CCC 
LTv[ = 3 COG 
LIYA = 3CCC 
C 

CALL I N I T1 ( t^CCL2 tN S M NS E ? , DOT t P TCT t TT CT , P PM t G , P t CP t ZMAXt 

12Y INtR>-’A> »PM ir. , lArs ) 

c 

c 

CALL INPlT{R^(ji),-E(J2)t:2(LI)tI2(L2),NE I tNSE2 ,NS£ tPRRl . N2 ,( 

IL IM tL , !Ai\S ) 

C 

C 

CALL THE 5 h(R E ( Jl ) tF 3 ( J 2) t';3( JE ) M J A) Q( J5) , RS( ]6) t lEC LI) 

1 t I2( L2 ) t IZ (L3 ) tiNM JIO) tNSE2 t NS =t ;2, MRRI, IANS ) 

C 

C 

CALL CC \ EC 1 1 E (L2 ) t r 2 ( L3 ) t 12 ( LA ) t.'JSPt N2 tNE 1 tNR )TG3t jRGT'0~t 
INSTA'f'^^tN 5TATE , I A,. S ) 

C 

c 

CALL I.\IT2(RE{.6)tI2(LA),I2(L5),-H(j7) 1 2 hCST A t PMCTT , - ^CT t WCCT t 
lFTCT,D^E5StTEYP,VZI tHtCP,G,;iSF , N 2 . N'SE • '.E 1 t IANS) 

IF( lANS.EC.Z) GOTC ICO 

CALL TA SK I E ( J6) tF 3 ( J13 ) t.NSEZ tM- t N2 tN^’CTCTt NF OT 2 E , N ST AT B, 
INSTATE ) 

CALL F I LCEN( ( J5 ) t - E( JG) , R3 ( J 13) tP M J/) t I 2 ( t> ) M 2 ( L 2 ) 1 1 2 ( L 5 ) t 
1 FFF :St TC T tT EHC , - Tnx ucSTA , FHl'^T »VZ I t t ,P »G,NRu TQLt 

2NSTATG,N5:-2,NS£t\2t 1 t.NJl t I^NS) 



c 

C 

c 

c 



c 

c 

IOC 



c 

2CO 



WPITc ( ,2CC ) 

FCP.'UT (5Xt * >CC YCL v^AMT 
2 = NC. • ) 



PLOT OF 
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’HE MESH ? M / t * 



Y c 3 



FILE: MESHGEN FCRTR^N A 1 NAVAL PC STGc» LA TE SCHCGL 



FEAG(lf,«) T^mS 
IFdANS.EC.^ ) GCTC 3C0 
C 

C^LL ^PLCT (RE ( J? ) t? ? ( Jo) , Z'^AX , ZM I N , R v \ X , RM I N » P ( Ml) ,rA('^2) , 

1C^(M3) f C^( ) , C'- ( vs ) ,C4( y6 ) , C- (M7 ) ,QA ( .VR ) , I2(L5 ) , NSE2»MKP 1 , 

2N2.NSEfNElr‘:C2»v'v-) 

C 

c 

20C STfP 
ENC 

c 

c 

c 

SUE9GUTUE INITI (yPC;v2 ,NCCL2 »N S E » NSE 2 , WD UT t PIG T , TTC T ,RPM , G , P , C P , 
lZ^'4)c,z'M^ • -X :r: , ) 

INPLICIT REAL^R( '.-o»P-Z) • PEAI-A(H) 

IMEG-R*^ .vR ,> PI , iNCl * IC, r-P 1 ».\E1 t VNl, '"N2 t MN3 , MDA , NSE2 , N 2 
IMFGER«^ TAG’S 

CC^V^N /INT^/ vp ,V., T ,‘4C,rjCl, IC 
CC^yQV /^CCU^.T/ .vhC'A ,.RNS EC 

CCNMCN /NCCOr T / \ N, \ ::l, NClL I ♦ At , *'PGTr 

CC MfN /A PCI AT / J I, J Z, o3 , J-, Jf , J6 ,J7 , JA, ju,j 10 , j i 2 , j 12 , 3 , jXh , 

IL 1 »L2t L 3 tL^f L5 ,Lc » n , v‘2, , ,v5 , , N7 ,MH , 

WR IT^( 15 , 1C J ) 

IOC FCP'^AT{5>,* >fMCP INLET CGNC I T ICNS : % / , • MAS3 FLCWlLSM PEP SEC) 
1 TCTAL TEMPI GLG -) A\) TQT^L F HE S S ( P S I A ) » / ) 
cFA.H If ’>vCCT ,TTCT»PTAT 

V»P ITr( 15 iIlO ) 

lie FCRMAT(5>,* >EMEP O^^EPATdJG C C NS TiM T S : • * / , • P.Py*,/,» RATir r? 

1 SFECIFir FFATS (GAM‘M)’,/»* GAS CCNSTAMT p ( F T- L 2)*= /LF M-0 FG P)»,/ 

2f* SPECIFir h^>5T CCNSTAM PRESSURE C P ( BTU/ L RM- QEG R)d/) 

REAPt 15t X) RP'' ,G,R,CP 
wFITFdS ,12')) 

120 FCFvrT( 5>,» >ENTEF GRAPH SCALING CGN S^ AfJT $ : S / ,» Z MAXd/»» Z 
IMINS/, * R yAx’,/t * R MIG* ,/) 

FE^CdS ) ZyAX,7MN,R?^AX,RMlN 
V^^ITEI 15,50 

50 FCFMAKEa,* >Lil YCJ y^ANT TG CRcATE A NEW MESH 1 = YES 

12= NO* ) 

FEAG( 1ft*) I 
IF (IANS. EL. I ) cnir i^q 

READ ( 25 , 1 30 N ^ ^ FC^ ,NCC L , MRCvs 1 , NCOL 1 , NR CTC d, NST ATB 
12C FCP^i^(7I5) 

GCTC 201 

ISS WR ITS ( I 5 ,2CJ ) 

20C FCFvi4T(5>,» >CM2P NG CF SUPER ELEMENTS AND NG ELE^^M RPWS*,/) 
PE^C(13 f ^ ) *dr ,y'C'.N 
20 1 yPC^l = 2 - ’^FC A + 1 

VRl = *^PCr>l - 1 
FR - MhCV 
f-RCW2 = 

NCCL2 = ^^CL1 
NSE2 = C^NSE + 2 
J 1 = 1 

J2 = JI NSF2 

J2 = J2 + NSF2 

L 1 = 1 

L2 = Ll 4 NSE 

L3 = L2 4 \SF 

RETURN 
ENC 
C 
C 

SL EPCUT INE d ^"UT( XSE ,YSE tNSEC, NTSE,N E 1 ,MSE2.M5F i MRR 1 ,N2 ,LI 
1 L I M , L I y A , M N S ) 



'f4 + + 44’*4 + + + ^-44 + + f4*+-^ 

4 + + 4444 + + 4 - 4 - 444 - 44-44 444444 - 4 +. 
+ 4 * 

4 + 



+ >44'+44 + 4444-4 4^ 
444444 + 44 + +444444> 



This SUGFCUTINE -'ETAINS THE CISCRIPTITN CF THE SUPER ELEMENTS 



4 4 
4 4 



44444444 + 4 4 4 ♦4444+4444 
4444444444444444+44+44f 



•444+4+444 + 4444 
44444-44+4 
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FILE: HESHGEN FC^TR/iN A1 NAVAL PGSTGR^OLATE SCHOOL 



C 



c 

c 



ICl 

IOC 

201 



20C 

202 



I^PLICIT REU*E( i-H ,P-Z) 

INTEGC-;«^ ICi.^RR 1 ,NE1» ^ M , m^ 2 , M>J3 , y , n s E2 , N2 

,IMFGER-A IANS 

CC^i^LN /IMA/ 1 ,-4C f i\Cl , IC 

CCN^CN /FCfHNT / '*Ki:-U' I , '^•NS EC 

COVC.^^I /^CC»J^T/ ^^t^CCL, NCCLlf Nc» ';^otc,nstat 

CC^Mf:M /NHfl MT / J I • J2 f J? , JA t JE ,Jo • J r , J;:5, JC, JIO , Jll , J12 » J1 3 , J14, 
U 1 »L2, L? ,LA, L = ,Lc,Ml,'lZ, ‘Mf MA, ^6, 

CI^F^iSI C^ XSE ( 1 ) .YSE ( I ) 

C INENSICN NSEC ( 1) »NTSE( 1) 



IF(IANS.EC.2) GCTC 2C2 
NCtL = 0 
J = 1 

NSE22 = ^SE2/2 
CC 100 I = 1 ,N5«^22 
I^RITE ( 15»1 Cl ) I 

rCP*^AT<EX,* >EMER Z,R CnOPOINATE FAIRS STATION ’,12/) 

FEADdf,*^) XSE(J),YSE(J),XSE(J-^:),YSE(J+1) 

J = J ^ 2 
CCNTIMUE 

CC 2C0 I = I ,NSF 
VRI TE( 15,2C1 ) I 

FCP*dT(=X,’ >E.\TE^ TYPE OF SUPER ELEMENT AND THE .\'G OF COLUMNS f 
ICR SUPER 5I.E VENT • , 12 / ) 

FEAOf 1 f t^) NTFw ( I ) ,.mSEC ( I ) 

NCCL = NCOL ^ NSEC I I ) 



CCMINUE 
NE = 


5 NCCL 


NEl = NE 
NCCLl = 2 


.NCCL + 1 


= '•ICCll » '■'RPV*1 - * NCCL 


N2 = NN 
PPRl VF 


C‘d 


J1 = 1 
J2 = J1 4 


NSE2 


J3 = J2 4 


NSE2 


JA = J3 4 


v:;pi 


J5 = J4 4 


V P F 1 


J6 = J5 4 


w 


J7 = J6 4 


N2 


JE = J7 4 


N^ 


JS = J3 4 


N2 


JIC == JF 


+ N2 


J 1 1 = JIC 


4 \'2 


J 12 = J 1 ] 


4 


J12 = J 12 


4 V2 


J = J IE 


4 N2 


L 1 = 1 
12 ^ Li 4 


NS E 


L3 = L2 4 


NSE 


LA = L3 4 


^ E 1 


L5 = LA 4 


E- NE 1 


L<E = LE 4 


NE 1 


V 1 = 1 
V2 = Ml 4 


NC U 1 


y *3 - 7 ^ 


NOEL 1 


MA = M3 4 


'R- 1 


M5 = *^A 4 


MR c } 


V6 = M5 4 


NC r L I 


V7 = ^6 4 


NCCL 1 


ME - 7 4 


N 


vs ^ M3 4 


N 2 


^excR = - J14 


NOCI = LI “'I - 


^ £>C4 = 1 T'4 - 


IF (NEXCr . 


LT.r, » f.'LL c^P.l (M?.<C? ) 


I F (NEXC I . 


L C) C^LL ( MPXCi ) 


IF <NExC4 . 


LT.J) CAL'. '=■(■^3(^,£XCA) 


V^FITEIS ,3 


00) ^EXC‘=.^EXCI 
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FILE: ^EShGEN 



FCRTP/:N A1 naval postgpaolate school 



20C 



FCPN'AK 1 CX 
1» 15///) 
FETUPN 
ENC 



^E^CFY SPACE AVAI LAOLE 



PEAL =S I5,2Xr • INTEGER = • 



SLRRCUT I^E TyEShOSE,YSE,XX$E» YYS Et Z C ,PC , NS EC » NT S E , NT E , 

1 e SE? SE ,N 2 , ^ 1 ,! AMS) 

’*‘>•••+4 + + 4+-*-'*' + + 44 4 44- 4 4 + 4 + 44-+4 44'4 + 4444-44*44'4+4-4'4'44'4 ^.4*4-4'+4' + 4'4-4-4'4'4'4'4-4* 

+ + 44 4 4444 + 44 4444-4444444444 + 444 + 444 44+44+ 4444 4+4+444444444 + 4 4444 4444 4 
+ 4 + + 

+ + This SLEFCUTINE FPCCHC-S A RECTANGULAR EIGHT-^)GOED + + 

+ + I SCPAi^ I C GPIO CP ARoIT^APY DIMENSION M X N GIVEN 

+ 4 ThE CCF^E= NCCES JF ThE VESh»S »* 5 U?EP ELE'^ENTS** + 

44 4 4 

+ 444 44 444+4444 4+4+44 44 + + + 44444 + 444444444 444 + 444 + 44 + 44 + 4444 44+44 44+44 
444+444+4+4444444444444+444444+4++4+4+4444444++44+44444444+++444+444 

IMPLICIT A-H,F-Z) 

INTtGER^A v'^ ,'^Pl,NC,\CIt IC»'-'PP ItMEIt NM, '-N2 , MN3 , VNA , N S E2 , N2 
INTFGEP'^'^ IANS 

CC-'^yPN /INTA/ VR ,iMC,NCI , IC 

CC^MCM /hCCU^ '^ / I 

cc^^cri /rCCMNT/ V.N •NC'^ L, NTCLl » Net PJTC,NSTAT 
C I PENS I CN XSi ( 1 ) , YSr ( 1 ) , xxs: ( 1 ) tYYSE ( 1 J » ZC (1 ) • PC ( I ) , 0 ( I ) 

C IP^NS ICN NS EC ( 1 ) tMTSE ( 1 ) ,'’TE{ 1) 

Tr/T*\ir r/^ r* n t i- ->/'' 



12 

11 

20 



10 

lAC 

15C 

120 

lie 



GCTC 20 



IF< IANS. EC. 1 ) 

CC 11 l^l,NM 

FEAO( 2C ,12 ) ZC ( I ) 
Fr=MAT (2FI5. 1! ) 

CCM INUE 
GCTC lOG 

YCIVl = FLCATIPRl) 

YCIV2 = FLCAT(PP) 

I = I 
TJ = 1 
It = 1 
IP = 1 

nstat = c 

PFCTC = C 
CC 10 N ^ I,NP 
ZC< N ) = O.OC 
PC( N ) = 0 .CC 
CCPTINUE 

CC ICO j = i,ps: 

IF( J .EC.! ) 120 

IF{ N'T c;: (J j -M SE( J-i) ) 

IF< I V ,LT. : ) GE Y'l IrO 



‘C ( I ) , I ) 



120 ,1 20, LAO 



NRGTC - I L 




IM = ( - IP 




GPTr; 12G 




NSTA 1=11 




IM = C - I.M 




IT = ^SEC ( J ) 


MRCW 


DO 1 1C L = 1 , 


I T 


NTE(IL) = 


' T S E U ) 


IL = IL 4 


I 


CPNT I ^LE 




NMCPLl ^ 2 =< 


NS2C( J ) 


Nfl = NNCCLl 




NC = PCI - 1 




XCIVl = FLC^^(^Cl) 


X0IV2 = f=lC£T 


( ) 


XI = >SE< I ) 




X2 = >SE< I 4 


1 ) 


X3 = > 5 = { I 4 


2 ) 


X4 = >SF( I 4 


E ) 


Y 1 = Y S c { I) 




Y2 = YSr( I 4 


1 ) 


Y3 = YSE( 1 4 


2 ) 
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I 



♦ 






I 



■m 

m 




FILE: ^'ESHGt:-^ FCRTP^JN A1 NAVAL PCSTGRA0LU5 SCHOOL 



21C 

22C 

22Q 



YA = 'tSEC T 4 3 > 

XOIP 2 = X 3 - XI 
XPIF3 = XA - >2 
YriF2=/l -V2 
YOIF3 - Y2 - YA 
XITJT2 = <01 F2 / xni V2 
XINT3 = XCIF3 / XCIV? 

YINT2 =: YDIF2 / XCIV2 
YIMT3 = YCI F3 / XDI V2 
ISEL = -1 
DC 2CC K = 1,NC1 
XC IFl = >1 - X2 
YCIFI = Yl^Yl - Y2«Y2 
IF (ISEL) ;iCf21J,220 
XI^T1 = XCIrl / YCIVl 
YIMl ^ YCiFl / YDIVl 
NFF = MRCrtl 
GCTC 23C 

XIMl - XDIFl / YDIV7 
YIMl = YOIFl / YUIV2 

VPF + 1 

DC 3CG IC = 1 • MPP 
ICl = IC - I 

XXSE(IC) = XI - FLOAT (IC - D^XIMTl 
IF( IC.NE.l ) GOTO 231 



YYS £( IC ) = YI 

GCTC 232 

231 YYSE(IC) = nSQPT( YYSE (IC 1 )*YYSE( ICl) - YINTl) 

232 ZC( IJ ) = XX 3 E( IC ) 

RC( IJ ) = YYSl ( IC) 

IJ = IJ I 

300 CCMir'JUE 

XI = Xi + XINT 2 

X 2 = X 2 4 >i\T 3 

Yl = Yl - Y l.\T 2 

Y2 = Y2 - YINT3 

ISEL = - I S : L 
20C CC^!TI^U£ 

ISEL -ISEL 
IJ = IJ - YPCV. 1 

I = 2 XJ + i 
IOC CCMINUE 

V.»ITE( A,^CC) '^FCa,NCCL 

AOC FCF'^AT ( 1 C:<,« NL^PFR OF ROWS = SIEtlEXt^ NUMBER CJ= CCLUMNS = • 
1 , 13 /) 

^ R I T L ( 6 , ^ 1 C ) N E , r ^ 

^ic fccyat( 5 >,* tctal of flej^ents = sintiox, 

!• TOTAL ^L'^3E.R CF NCCES = *,!-//) 

RETURN 

ENC 

C 

c 

SLERCUT E CCN EC ( M S 3 ,NTE,HOCE ,MSE,N 2 ,:;E 1 , , NROTCE ,NST ATB , 
INSTATE, I^NS) 



C ■f + 44'l4-*4-l-++ + 44++^++-».*+ + + >>++ + f^-+4+4-K*t-++^'+4. + + + + +4.4.+ ++ f + + + -f + -H-^+>++++ + 
C 444444 4444444444 4- 444444t44444444f + + + + + + + + 44- 44-444-44 

C 4-4 4 4 

C 44 this SL8RCLTINE PRODUCES THE CCNECTIVITY '^ATRIX 4 

C 44 4 4 

C 4444444444444444-4-4444444 4-4 4444+4444444444444444444444444444444444444 
C 44+44444444 4 4444444 444444444 44 4444444 t 4 4 t + 444444444444444444444 44 444 

c 



1.'' FLIC I T .^FALX*F( A-m,9-7) 

INTEGER -4 VR ,YR 1 ,NC ,NC 1, IC ,YRR 1 ,N E 1 , V M , Y NE , MM 3 , , a s E2 , N'2 

IME^^Rx-A IA\S 



CCVMPM /NCCUNT/ ,MC'CW1 ,MNSEC 

/^CEJ^’T/ Nf ,\L^L,'iCOL 1 , ME , MRO TC ,M STA T 
CC^Mi.M /IM4/ ,V^I ,NC,NC1, IC 
GIYFf.SICN NDOE(fJ 1 , 1 ) , i\ T Sc ( 1 ) , N TE ( 1 ) 

IF ( IANS .EC.2 ) GCTC 6C1 
K - I 
MK = 1 
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I 











file: ^ESHGEN FC^TR^N 1 NAVM PGSTG^AOU^TE SCHOOL 



^0 



iOl 



71C 

7CC 

tQC 



NPCTPP = 
^FCTCE = 
NS1ATR = 
NSTATE ^ 
C -1.00 
DC 40 IC 
Kl 
K2 
K3 
K4 
K5 
K6 
K7 
KR 



U N c I 

H ♦ >*FCW1 f VRCW + 
Kl - - yK 

K 

K + 1 
K + 2 
K2 ^ 1 
Kl + 2 
K 1 + 1 

NGOE ( IC ,1 ) = <1 
NODE ( IC tC ) ^ ‘<Z 
NCDc ( 1C ,? ) = K3 
NC DE ( IC ,4 I = :<4 
NCOE ( IC o ) = K5 
NCOE ( IC ,^ ) ^ 

NGGE ( IC ,7 ) = K7 
NODE ( IC .3 ) = K9 

K = K > 2 
MK = KK > 1 

CU = FLCAK IC)/FLCU(yR) 
IF(OC.NE.O) GOTO 40 

MK = 1 

C = G + l.OC 
CCMIMUF 
Vr ITF(6 •fA) 

FCF’^AT ( mm 
P ITF (6 t^4 ) 



1 



IF ore .EC. 0 . iNC.:jSTAT., 

IJKl = ^.FCTO 

KFCTG ♦ MFCW - 
N 5 7 A " 

N5TU + - 

= NCnE( Mk 1,3) 

= ^C'JE( IJ;n2, 7) 

= NCOc( UK 3, 3 ) 

K CO E ( IJ K it 7 ) 



0.0) GGTC oCO 



UK2 = 

IJK3 = 

IJK4 = 

NRCTOG 
NPCTC- = 

= 

NSIATE = 

CCMINOC 
GCTC EOC 

CC 700 I ^ 1 , ^E1 
RFAC( 3Ct7 10 ) • 

NCCE I r ,5 ),^-c:e( 1 ,6 ) 

FCF*-M 1 ( El 5 ) 

CCMThuE 

FETUr.\ 

ENC 



HE( I t I ) tOOOE ( T t 2) , N“0E n , 3) ,*!rOE ( I ,-) 
CF( I. n, \QOE (I,3),'iT3( I ) 



ci^pcniT IKE I M 'T? { FC t \CCE t’lBC 
1 F F E SS , T E > P t V Z I t CR t C f NS EC , / 

+ •l■»4+i■4 4 4 + 4+ 4*t4- f-hf>4*i' 



tP SI , .<.H0 ST\,RH?TT,TTf:T,ViCC",PT' 
R- It Ut'! SEt ^rlt I 

4-f4-4“-*-4-4 + 4-4“+4-+ + i‘+i--*- i»>r'*-4-i 



c 


+ 4 








4 4 


c 


4 4 


TI-IS SL?FrUTI^: Cf"-'PUTEF T-1 


: i.\l:t c^ndi 


TT C NS 


4 4 


c 


+ 4 


Thf^UG^- ThT usf ()P 3U3-GUT; 


iF RL^FCT. ^ 


j c: 


4 4 


c 


44 


SlE«aJT:^= .'LS': c£’:-c.^im = 3 


THE NCOE 




f 4 


C 


44 


WhEPfc Th£ ViUJEG HP FGI 


TC SPECIF 


I CO. 


44 


C 


44 


TPE SUG^cutliNE CC'-PUTFS 


n ITUL 


s IlVJT I GN 


4 4 


c 


44 


OF 7HS SlfcJM Fil\r.TIC\ 


THE INLC^ 


NO M IfN<: 


4 4 


c 


4 4 


-iNC the e^L^:3a <Y' cg''oi ii r.rjs 


“IF THE 


AH TUPBC. 


4 4 


C 


+ 4 








4 4 



4*-44- + 44 4+ + 4->4 44 4*4- + 444-«t+44f+++4^-h-».^ 
44+ 44 4 44444 4 4 4444 f+44 444 44 



44 444 l>44 444444444444 444 f44444^ 

<44 f4444 444 444 ff 44 444444444 4 



4 4 4 4 i 4 



IKFLICIT c:al-S(^-H.P-Z) 

IK TEGEIM^ tKC ,NC 1, IC , •"RF 1 , N E 1 , MM , , ‘IN 3 , MM4 ,NSE2 t M: 
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FILE: N'EShGEN FC^TR^N A1 NAVAL PCST3RAJLATE SCHOOL 



IMEGFP*^ IANS 

CC^VCN /FCC’JOT/ NKCVs fVNS EC 

CCN.VCN T/ NN.NC^Lt NCOLlt NttNROTf ,.NSTAT 

CCNNON /IM*^/ 1 ,NC,NCl , IC 

CI^'E^SIC^ PC (1 )tPSI (1) 

CINENSICN NODc(NE1, 1),N3C( II 

G = l.ACC 

R ^ 5^*3CC 

GC == 32.17AOO 

Ir (I ANS. EC.l ) CCTC 10 

NNEC = 2 ^ -MCCLl + ‘^ROUl - 2 

CC 700 I = 1 ,NNHC 

RPAD(35t71C) NtCni 
71C FnoMAl(I5) 

70C CCNTINUG 
GCTC 30C 

10 CC 100 I = I tMPR 1 
NBC ( I ) = I 
IOC CCMIMUF 
= 1 
= I 

K = MftR 1 + 1 
JK = K 

I - 4 1 

= 2 * (NCDLi - 1) + K 
CC 200 J = K 

IF(MM.GT.O) GCTQ 210 
N6C ( K ) ^ L 
K = K 4 I 
L = L 4 1 
MM = ( - MM 

GCTO 2CC 

21C rF(MK,CT.O) GCTC 220 

NBC ( K ) = L 
L=L4MRCW1-1 
HK = C - MK 
K = K 4 1 

MM = C MM 
GOTG 2CC 

22C N6C ( K ) = L 

1=14 MPCV^ 

MK = C - MK 
K = K 4 1 

MM = C - M’M 
2CC CCMI'IL’E 

K=MQcri>2^(NCnLl-2) + l 
JK = N’2 - 4 1 

N8C(K) = j 
N 5 C t K 4 I ) = \\2 

20C CCMINUE 

GMl = G - 1.00 
GMlI = l.CC / GM! 

PHLE2 = KiMPCWl) =5^ CC(MR''"W1I 

ARFA = 2,1^L5S2F5A ^ ( PC(l) RCfl) - RHUP2) / lAA.OCO 
CALL FLC FCT( •PTCTt TTCT ,r.HCTT, V'TD T tXVEL ,CP,R tG^I ,G^I I , 

1 A P E A ) 

CLAM = l.C'^C - >\,FL - XVEL 
TEMO = Tic: ^ CUANT 

PRESS = fTCT n r > 

RFCSTA = kHOTT 4 GGAi\T=5'-GM1 I 
V2 I = VT CT ^ XVEL 
NC = MRCVl - 1 

PSIl = V.CCT / (2. COO 2. 141 59263-^) 

F 5 ID = P 5 II / ^LC AT (\C ) 

J = 0 

CC 5U0 I = 1 ,NC 

PSK I ) = PSIl - FLCAT(J) « FSIO 
J = J 4 1 

EOO CCMIMUG 

PEI(MKCVI) = C.CCCOCCOOOOOOOOO 
CC 600 I = ItNEl 
Ml = NCOF ( It 1 ) 
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FILE: ^EShGEN FCRTR/5^ a1 NAVAL PGSTGRAOLATE SCHOOL 



^OC 



c 

c 

c 



ICC 



c 

c 

c 



ICO 



c 

c 

c 



IOC 



c 

c 

c 



M2 = 

M3 = 

M4 = 

NI 5 ^ 

NI6 = 

M7 = 

MS = 

FST ( M 1 ) 
PSI ( N 12 ) 
PSI ( MS ) 
PSI « M6 ) 
FSM M7 ) 

ccminue 



NCOE( U2 ) 

NCD- ( I ,? ) 
NCJE( \f'-) 
NCDC< I ,*: ) 

NCG^ I I ,r I 
NC^E( U7 ) 

^ CD t ( ! , ? ) 

F ^ I ( \ M ) 
FSI (f.I3) 
F 3 [ ( M ^ ) 
F 3 I ( N I 5 ) 
FS i (N I 5 ) 



RETURN 

ENC 



SLEFOUTI>E ERFl (NEXCR ) 

NE>CP = -NEXCR 

ITr( , ICC) NEXCP. 

FCF‘^AT(» EXCCECEC ^^AXIVlJy ALLOWABLE SPACE FOR REALMS VARIABLES BY 
1 • . 15// ) 

STCP 

ENC 



SLEFOUTUE EKR2(^EXCI) 

NEXCI = -NCXC! 

WFITE(6 ,1CC) NEXCI 

FChM^,T(i EXCCECEC ALLOWABLE SPACE FOR INT^2 VARIABLES BY 

1 • , 15// ) 

SUP 

ENC 



SIFPGUTINE =c^RE(NEXCA) 

NEXCC = -N^xCA 
WPITF.( 5 ,1CC) NEXC A 

FCF*^AT(» GxCclLEC SAXINUM ALLOWArtLE SPACE FOR VARIABLES BY 

1 • t 15// ) 

SUP 

ENC 



SLERHUT U E T ASKl (RC 



NEE 2 f‘*RR ROTCB fN^OTGE »r:STA' 



; T A ^ F ) 






h-f +-►> f4-4* + + ♦+ + 4 + f + 4- + + 4 



•44 f-r 4 4 4 



c •f +44444444 + 4 - 



44-^4 + 44444 44^ 



c 

c 

c 

c 

c 

c 

c 

c 



44 
44 
44 
+ 4 
44 



This SLeRCL"ri ^E 

PACTC*<S FOR THE 
CC^FFESSCP. 



CC^<°UTF3 THE TA^GE^TIAL PLCCKUE 
PCTCR AMG STATCR JF THG N^SA lASKI 



4 4 
44 
4 4 
4 4 
+ 4 

4 4 + 4 44 
44 4 



I?^FLICrT ^EAL=*E( A-h,P-Z) 

INTFGE^’J^A YMYFl t ^Ct^ Cl, If.TEl , .'^N2 , MN 3 , HN 4 , N S - 2 , M 2 

CCYYf'N /NCCUNT/ - 0 . ^KO W I , Y \S EC 

/NCCU-T/ ^^,^C*L,^^.^L l,r'E,NROTC,NSTAT 
CC>YPH /INTR/ NR I ,NC, NCI , IC 
C IVf^N SION I I ) ,M 1 ) 

IF ( IANS . 12 . 2 ) GCTC 700 
YM = NRCTC3 4 YrCHl - I 
h N 2 = ] 4 1 

MW 3 = yv 2 4 ^'RCW 

4 1 

= NS1AT3 4 YPCW 1 - 1 
|w^e-= 4 1 
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FILE: MEShGdiN FCRTRAN A1 NAVAL PC5TGRA0LATE SCHOOL 



¥f^l = + VRCW 

= yvi + 1 
CC IGO 1=1 tNN 
Ed) = l.OCO 
100 CCMINUt 

CC 200 I = NFCTCE,^'d 
PCI = »C ( I ) 

RTCL = C.C13!d3 - 2.AS6720-A - 1.030^1D-S ^ OCI ^ RCI + 

ls.2A33^n-lC ^C1 ?Cl ^ RCI ^ =» PCI 

RSIGL = l.C^<;73 + 1.222510-3 =J*^^CI'^PCI > 1.46C660-3 PCI RCI ^ 

1 RCI ’J' PCI 'i= RCI - i.33BG=0-2 - OCnS(RCI) - 7. <*QSIN(RCI) 

2 4 2.3^RE210-5 =i-' CTANMRCI) - 2.12^71 ^ DLOG(RCI) 

8(1) = 1 .Co - PTCL * RSIGL 

20C CCMITnIUE 

CC 3C0 I = ,^^3 

RCI = ^Cil) 

FTCy = G. 1*^0403 - 5.3SC610-3 ^ RCI - 3.280*^40-11 ^RCI* RCI^-KCI 

1 ^ RCI ^ PCI ^ ^CI ^ 2.1590RC-15 RCI ^CI PCI - ^C I *= I ^ 

2 PCI * RCI ^ RCI < RCI - 4d52 760-4 ^ CCGS(RCI) - 1.21C2D-4 ^ 

3 C5ir:(Pri) - 3.«-fo42D-6 * OTAM(FCI) 

RCI = RC ( I ) 

RSIGM = I0.‘R5<;4 4 .255785 ^ RCI - 2.52C7CD-6 4 PCI ^ PCI RCI « 

1 RCI 4.481 B3C-3 - OSPMRCI) - 1.0B 3760-4 ^ OTiri(?CI) 

2 - 4.835EC ^ CLCGIRCI) 

c ( I) = I .CO - PTC.^ ^ RSIGM 
30C CC^T:^JUP 

CC 4Cj I = *^^4 ,NPCTCE 
PCI = RC ( I) 

R1C7 = O.C19C73t - 1.I1I 320-3 ^ RCI + 1.34790-6 RCdPCI^PCI - 

1 1.C633PC-14 ^ hC I ^ isCl RCI - RCI ^ RCI - PCI * PCI * PCI ^<C I 

2 ^ 8.41P26C-5 lCCS(RCI) + 2 . 68422 0-5 ^0 S I -i( kC I ) - 5.721390-7 * 

2 C7A''(P-CI) 

RSIGT = 17.9:5<^ 4 .686044 ^ RCI - 3.<=6E910-6 - RCI ^ PCI - RCI 

1 PCI 1.653cOC-: - CCIdRCI) - 1.364770-4 ^ OTANCRCI) 

2 - 5.5CeC5 4 OLCG(PCI) 

e ( I) = 1 .c: - PTCi ^ p siGT 
^CC CCNTI.-JUF 

CC 5C0 I = NST;TP I 
RCI = RC ( I) 

SINCI = C.CIP8CS9 4 7.311570-3 * ^C I 4 1,600960-5 ^ RCI - RCI - 
17.69^^^30-5 - rCO’^(PCI) 4 4.^32 180-5 « DSUHRCI) 4 3.R4003D-7 

2 CTAN(PCI) 

5SIGL = ^.77577 - C. 350357 - RCI 4 9,654^20-3 * ^CI ^ ^CI - 

1 5.5266 3C-13 - P C I " R C I ^R C I -R C I *RC I- " C I -R C I-R ^ I *5=^ C I 

2 - 1.3 11640-3 t: SI "‘(PCI) - 1.72 7^-0-6 ^ DTIM^'CI) 

S7ET^5L = C.2 72 EC' - R. 025550-^ ^ RCI 4 1.994?0-^I -• 

1 RCI=5^PC dPCI•'^^,C!"^C.I-*^CI>^CI 4 3,0-C63£:-4 ^ KOSIkCI) 

2 4 2.2 5c3ir-4 ^ CSr^^sCI) - 0.87 -^h5J->^ -- CTVJ(RCI) 

B(I) = 1.000 - STd'^L - ST^CL 7 SSIGL 

50C CCMIVJE 

CC 6CG I = M v6 . >67 
PCI = RC ( I I 

ST.^CM = C.C15876^ 4 5R621D-3 «RC I 4 Q,35191D-6 7 PCI 7 kCI 

1 7.56625C-5 ^ CCOS(ROI) 4 6.894990-5 -OSIN(PCI) - 4.16541L-6 7 

2 CTAr-( P C I ) 

SSIG:>' = 5.17:32 - .931 549 * PCI 4 1 , 1342*^0-2 7. RCI 7 pci - 

1 6.5906‘=C-13 ^ PCI-PC I«cci:i=PCI 7RCI7RCI’^RC I7PCI-^CI 4 

2 2.CI139C-4 7 CT1N(PCI ) 

B( I) = I .COO - STNC^ ^ 5SIGM 
60C CCMIfiUC 

CC 700 I = 3^-8, NSTAT8 
PCI = R C ( I ) 

S16CT = C.C0994521 4 3.143580-3 7 ^CI - 3.600470-11 ^ RCI^^CI^^C! 

1 < PCI 7:PC I7PC r 4 :.00323J-5 ^ DCOS(-CI) - 3.051 280-5 7 OSIN(RCI) - 

2 1.391 2 tC-5 7 CT^N(RCI ) 

SSIGT = 5.9012f - .5C6C55 * ^CI 4 1. 522340-2 PCI ^ RCI - 

1 2.1617CC-I1 7 PC IvRCI7f>-^CI*KCdRC IvRCdRCdPCI 

2 4 1.07 7 S 70-4 7 :: UN(PCI i 

SIET.'^T = C. 51518- 4 2. 52 5^0-4 ^ RCI 7 PC I - 6. 340-14 ^ I ^ 

1 PCI7PCdPCI7PCI7pri-r<cMPCl7PCI + 1.6^308D-3 - OCQS(HCl) 

2 - C. 1941 17 -1= CLCG( P^Cl ) 

e(l) = l.OCO - STET.'d 7 STHCT 7 S3IGT 
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FILE 



^^ESHG£^4 FCRTP/N Al NAVAL PGSTGRAQLATE SCHOHl 



70C CCMIMUE 
RETURN 
ENC 



C 

c 

c 



c 

c 

c 

c 

c 

c 

c 

c 

c 

c 



SLORPUT U E F ILCEN (ZC •RC, P,P3 I, N'PDGtNT'^ ,NBC • P- E S S • P TC 1 , TE'^P tTTGT , 
1 RFC ST A ,PFCTT ,VZI,'^OCT,RD'^,CPtE,Gf 'JKQ TC E, N S 7 AT B • 

2 NSEP,NSE ,NZf 1 1 , lAU'S) 



-♦+♦+44 



+ 44^44+f + 4 



• + 4 + + + -♦- 4. + + 



+ + + + 4 - 



4 4 4 44 + ^ 



h + 44 + 4++ + + 



+ + 4 4 

4+ THIS SLE-CUTINE '^RITES TH^ COTPUT If THE PPOGRA*^ 4 + 

+ + CNTP 01 5K STfPAr,P. THE FILE ?ff imUC>\3 ARE LISTEC + + 

4+ I^ THE E;<EC FILES TU.-.H/Dl \ND TURdOIA, 4 + 

+ + 4 + 



+44+4444444+4444f+4ff44+i 
4+444+444+4+444+4444 444- 



IRFLICIT PE M-h,P-Z) 

INTEGER^^ vp • vpi c,\Clf IC, /RP I •VEi , vl^i2 , 3 t ,NSE2»N2 
INTEf.”P^A I3.N5 

CCN.^ON /]\T^/ .''W L fMCtNC 1 , IC 
CC^^'f-N /^C^U^T/ •^hO^, 4 AO\v 1 

CC^•^CN /^CC'J^T/ ^^t^rCL•^CFLl,^r,\‘^OTC,MSTAT 
C I F E* S I C ^ ZC ( : ) , C { 1 ) , P ( 1 ) t P S I { 1 ) 

CI^F^Sr^^ NOEE (NFl,i ),\Tc( 1)»NEC{ 1) 

c 

IF(IANS.£C.2 ) GGTC ICl 
CC ICO I = ltriN 

'«R I Tc < 2C, 1 1 C ) ZC ( I) .PCI I ) ,B n ) 
lie FprvM^M (3F 15 .11 ) 

IOC CCNTINUE 

WP ITF{ 25 , TCJ ) NN.‘-‘”CU,\CCL tMRFvi.NrOLi ,N POTO 3 , T AT p 
10 1 HR ITfc{ 25 , 121 iPPESSf PTOT, TE'AP tlTHT ,PHC5TA ,PHQTT , XHCT ,C P , P • G tPP ^ , V 1 1 
1 2 C F C P T ( 7 1 5 ) 

121 FC^HA^r AF1I.6,2P12. c,/t4Fi2WtFe*lfF13.3) 

IF (IANS . EC .2 > GGTC 301 
CC 200 I = 1 , ^E1 

write ( EC, 21 C) 1 , 1) tNCCEU ,2 ) ,\COF (1,2), NfOE (1,4), 

1 NCCE (I ),NCCE( 1,6), NnrF( I, n, NOOE( 1,3), IT£{ I ) 

21C FORMA T(cie) 

20C CONTINUE 

L = 2 « ^CCL 1 4 2 * - 4 

CC 300 I = 1 ,L 

WR I^E (35, 3 10 NRC( I ) 

31 C AT ( 13 ) 

30C CCNTINUE 
201 CC 400 I=UM^ 

WP I TE (4C, AiC) PSI (I > 

41 C F2-^maT{!=1E. 11) 

40C CCNTINUe 
RE TLPN 
ENC 



C 

c 

c 



c 

c 

c 

c 

c 

c 

c 

c 



SLEFFUT I^E FLCFCT { U CU T , P VCT , TT CT ,PHQ T^ /yirr ,XVEL ,C , P , G , g II , 
lAPEA) 



4 + 

4 + 

4 4 

+ 44444444444444 + 44 14 *4444 + 44 
4+444444**-44444++4 + 4 44++444++- 



THIE COMPUTES THE NCNC I ME NS 1 CN A L VELOCITY X 

444+4 + 4+ + 4.+ ++ +^.+ 4 




44+444+44+ 



IMFLICIT PEAL^E(A-G,F-Z)» REAL^^(H) 

INTEGER ^4 , M P 1 , N C ,\C 1 , I ^ , ,vph 1 ,.;Ei , >M , MN2 ,MN3 ,MN4 , VSE2 ,N2 

/I MV/ VI 1 ,NC,NC 1 , IC 
ccm^nn /NCfuNT/ '' pca fMPG'wi ,yNs:c 
CCM'^^N /NCCUNT/ i\\.\COL,Nr:OLl,NE, :^QTC,NSTAT 
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FILE: ^•ESHGE^ FC-^TR;!N -U N^VAL PCSTGaADUATE SCHOOL 



IT 0 

>VEL = C.ICO 

EPS = I . CO-06 

PJ = 778 , 2 22.174 

RHCTT = (PrjT ♦ 14-..ono)/(R ♦ TTOT) 

VTCT = C5CaT(2.C(:C ^ ^ l^CT) 

FFII = v^CCT / (PrCTT « VTOT ^ A=>EA) 

IOC PHI = X\/EL - (l.CCJ -- XVEL ^ XVELl-^Gi^lI 
C IFF = CiieSI PH II - PHI ) 

IF (CIFF.LT .EPS ) CCTC 200 

CPHIDX = PHI l.CC/XVEL - ( 2 • 0 C*X VE L ) / (GM 1 ( 1 • 0 DO - XVCL*XVcL ) )) 

XVEL - XVEL (PHIl - PHI) / DPHIDX 

IT = IT 4 1 

IFdT.LT. 21) GCTC IOC 

WF ITF( 5 , ilG) 

lie FCF^'ATC* CCMVEFGFNCE NCT PEACHEC*,/) 

20C CCNTINUE 

V2I = XVEL ^ VTGT 

RETURN 

ENC 



SLEPFUT ‘1 P L CT ( ZC ,-CtZMAXt ZM IN, IN,OHZC ,OHFC , 

ICVZCtOVFC tCnZC 1 tCHRCl , CZCfCPC, XLKtNS E2dPRI,N2 ,NSE, 

2NE 1 ,\C 2 ,FN2) 

♦ ♦4444 44444 4444f44444444>4444+44 4 4 444+-f4>44*-4-44-444J 

+ ++ ♦♦444-I-44444 M-+44'r444+4+4>4+444>444 44 4'4444*444 + 44f4 f4i 
44 

♦ 4 This SUePrUTINF CREATES A TEKt^cNIX ^is PLOT CF 

♦ 4. EIGHT-NCOE 1 SC F A R A.M E T R I C ELEMENT ^ESH. 

4 4 

44- 4+44 44444 4444444 4444+44+4+4-^+44+4 + 4 +++ 444++ + ++++ + + + + + + H 

+ 4 + 4+ ++ + + + + + + +++ + 44+ + + + + + + + + + 4,«4+ + ++++ + ++4 + +4 + 44++ + ^ 




IHFLICTT PEU«P(A 
INTEGER « A yo ,y P I , 
ICCICALd TITLl 
CCNyC.N /FPAR/ P9( 
CC^MCi /^FAR/ 12 ( 
CC^WCM /CFA^-W 0^^ 
CCNMCiN /INT4/ , 

CCyMC.N /NCfUNT/ V 

CO'-'GN /rCCUM/ > 
ciN'^NS rrh CHZC ( i ) 



20 



C IHE'iS CMZCK I 
c I HENS r^^ /c a ) ,^ 

D I^S^’5IL^ KLK( 1) 
CIN-NS I C ^ TdL 1 ( ~ 
DATA TI TL 1/' -ICHT 

CCNVE 
TC ^A 

cc 20 I ^ i,rN 
OZC( I ) ^ ZC (I ) 
CPC ( I ) = ( I) 

CChrnrj^ 

C>>L(1) = Z.-1IN 

C>U(2) = 

CXYL(3) = ZMAX 
C>>L(A) = 

CALL OFiNd 
CALL GS'^FSE 

CC 5 I = l,,'lCf:Ll 
ChZZ ( ] ) = C .C 



-Hfp-Z) t ‘^SaL*^-‘(C) 

^C ..''-IC 1 , IC ,NE1 ,M4, '1R14, NC14 ,NC''.l 

5CCC) 

2JCC) 

(?000 ) 

.■''^1 , .C, IC 

•■'Cn, *'-tnu I .KNS EC, LI «! . Ll'-ic ,L1'^'+ 

N . ^ Tl L . N r C L 1 , N E , \'= ? T C , ST M 

,;:h'-'c ( i 1 c-^ ( 1 1 ,.?v PC ( 1 ) ,cxri (4 i 

) ,rh- Cl ( 1) ,CCC< 1 ) .QPC ( 1 I ,C.PS( 10) 

C ( 1 ) 

7 ) 

r.coc I SC?i= AI«ET^!C ELEMENT MESH'/ 

PT THE NCIAL CCRDINAT-S Tl P=AL-^ -- 

KE ^HEM C0*^PATA3LE WITH PLGTG C\LLS 



3};^;: a*-:!: a{e sCs 3|s 









PLOT PM NTS 



4= 

+ 4: 



vPLOCO 
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file: ^^EShGEN Al NAVAL FCSTGRA9LATE SCHOOL 



OFPC ( I ) = C .0 

5 CCNTINLE 
CC 6 I = 

CV7.C ( I ) = C .C 
CVRC ( I ) = C .C 

6 CCNTIfiUE 

^'yl = + 1 

NCCl = NCCLl + 1 
MA = 

KF 14 = vpcui 
NCl^f = NCCll 
NM = NN + I 
NP 1 = '-FCw > i 

CALL PLCl i • *^''N NNT IT^NL* tM^ f C ZC t C'’ Ct Q XYL , -7 t T r L I ) 

C ♦* PLCT hC-' I iTNTil. ELL■'?^!T 3C^)^ni«IcS 

vy = 1 

X l< K = L 

on ICC J = 1 , NCGLI 

PF 2 C (j ) = r.zc ) 

OHFCCJ ) = CPCI'^'-’ ) 

KL H ( J) = ^^ 

IP IKKK.LT. C ) GCTC 90 

= 4M 4 vj;cM 
KKh=0-KKK 
GCTC ICC 

EO My = ;.|y 4 yp]^ 

KKh = 0 - KKK 
ICC ccntinle 

CALL FLCT ( •NVi'^N.^NNONL • , *’C 1 A ,CH ZC ♦ CHRC , OX YL , 3 7 f T I XL 1 ) 
OC 2CC I = I ,>PC% 

KLK = 2 * I 
KKK = 1 

OC 900 I I = 1 ,NCCL1 

IF( KKK.LT. C) 00 -rr 890 
III = nLK( I i ) f ^’LK 
GHZCl ( I I ) = CZC ( I I I ) 

= L‘PC( III) 

KKK 



4 ::^: 4 » 



89C 



ecc 

c 

c 



,rC14,^H 2C U OHRCl r OXYL , 37 ,TI TL 1 ) 



cHRc 1 (I : ) 

KKK = vT - 
GCTC cOO 

III = Kl K( I I) ! 
chzci ( I n = i^zc (III) 

ChRCI (II) = CPC ( I ! I ) 

KKK = C - KKK 
CCNT IMLE 
vy = (2 4 I ) + L 
MLK = ‘aK 4 ^ 1 
CALL P LCT ( * y ^.Nr,.\NiNONL 
2CC ccMrajF 

4 : 4 : 4 : 4 4 ’ 4 : - 4 : * 4 : 4 : 4 : 4 ? 4 : 4 : 4 : 4 : 4 : 4 * 4 't: 4 : 4 : 4 : : 

C ^ ^ PLHT^VER II cal '}nU'!qAPIFS 

yy = 1 

KCIl = NCCL + ! 

DC AOO I = I ,NCI1 

00 3CC J = If.-^sOWl 
ov2C(j) = zc(‘-i‘n 
GVFC( J) = PC(Y*^) 

MV = MM + ] 

20 c CONTINUE 

CALL FLCT ( • ^^^ ^i^^^O^L • , PRIa tCV ZC» CV?C f OXYL, 37 ,T ITLl ) 

MM = V.M 4 . Mpi 
AOC CCNTIMJE 

CALL OSTEPV 
PE TLPH 
ENC 



4 : 4 4 44 ‘ 
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•M Jf- it* -K -if 

it .t 



APPENDIX F 



LISTING OF TUE PROGPAal TURBO 



FILE: TLPPC 



FCRTP-'N A1 NAViL PC STG-‘ \OL ATE ^CHOHL 



C 

C 

c 



- .I- >% y t 

n ■}',') u M ^ ; 1 i i J 1 4 1 "-: u 

I % <?• *V V , 4 4 •' 1 1 9 "> V 0< « V • > 1 * <r - 



>f<^ 9 ^ It -/ yp .77 ^ 






? u 

I 

n «3- <V <> 

A* < • ♦ 

? g ^ 1 1 

um 

1 i 4 U 

Q .- cv •; -» 



i II 
5^.1444 
? ? 4 t 4 4 3 
? 4 ; 4:;?13 



- , . vt *y . _ . _ _ _ , 

If n <A y 'ty 'y ■/ v • * V »w / i. I'l ZJ • v » -v 

-»M'>*1^-0-tC’i'o»v'>''3'*J »'ir ' > >o-3n« 

» ■» • '■vf 9 a V *• 2 ^ X a 4 4 4 4 <9 ' ♦« V 



r^^CCPA-4 TUPEO 

vx T » r» 4 a » '*. ;/ T <4 4 * 4 '’> >» V p 'T ^ V .!♦ » '9 -a> V “t » » 7 y » 4 

-<»'9T * 4. \ ^ ny fy •.-»■♦’•;■♦-> “T y o 3 *i 7 * o >y-'<4t- 

- - • * • ....-.-- . 3, . ^ ^ ^ ^ ^ ^ 

^ *0 "»> 5 : t » -o 



: I 






: i'i j M - 



131 c gi 414 4 3 4 ; 



I ♦■ -f 



3 ' 



^ ^ -o -fi 7 



-T 7 V / '•f ••• 



3 4 C 

• »; V V 

O “V ■& 



9 «\ > V 

^ « <1 j 

Jl / \ 



■> >> » 
» / tXT 

•o ■> > 



This y'^^^IC''^AL THPTUOH-FI r.« -MILYSIS P'^nGPiM 
APOMES A GU'PKIN F:\ITc ELc^SM '-'FTi-OD '^C A 
STFEAY FU^CTIC^ F:-:r:,v'iLAT I f!. t m s ?-;''~^-.-i 1J*=S 
EIGHT NCJE, ISCP '.T 1 -fST-p JC -LE'-'ENT-f a-;; tu^:) ;rn_ 
PCIM GAL)S3-LSG?'iCEE QUipcATU'^E \'UHEPICAL 
KiTFGPA TI C\. SELSCTEC GEStLTG i«E CISPLAYED 

ON THE TCKTACNIX GRAPHICS TERMINAL. 



' : y y T. ^9 % r \ — nyy. »-»<v. 7 v^V' 4 ».vAp 

nir 4 '^aaAVT; .7V> 14-9 

f • -i '■y -r 4 X ' ^ " i: X r - i • -Z 4.C2bt-oott 

tr -▼ j 7 4 9 '. ^ ./ > -• 4 y 1 s ^ f .y^.y jfOi'v^-x^yf 

- 3 •4t*> r. j C -C 7_,.r 

4 « 9 c- 7 )xx.' f -y 

4 y-iy*yrrijxx4 4*'-^- »> 3 3 r *> rz y 

•V > » 7 X T 5 7 9 » 4 T ” r V y 4 j ' * *'■ -> ^ ^ V X T . n - 



u n 

» 4 'T- ;- 

■ ‘ 

V X jr . 

O ♦ f 't 'I 



V OV» y ■ 

^ ^ J y i 

; i - 



"3 O 3 tj « 



4 

X 7 



X •» 

V V 



co"*'»‘i'tO't'<; 



* <x 4 -'^ -y ■/ * X 

V * ^ T J 4 ) ' 



INFLICIT FFAL^^(A-HtF-Z), C) 

IMEGE^^A NR rAC I IE ,I C ,NNCJ » NE A , N N E4 , \P 0^ S , I I-1P , L IM 



CIME^SICN ALL APRAY VARIABLES 

/FEALS/ PE('=rCCC) 

/FEAL'V L. (500) 

/I\T^/ IS(ZCCCl 

/ c r\) yj/ :.cZ'Lf M CO l i , . n*n , n e 

NhC 



CC VNCN 
CON'LN 
CCNYCN 
CCN^CN 

1 t ^ ^ E f 

CC^-N'NN 

IL I^L-^' 

CC^^f N 
CCN^rri 
1 NP 12 ,N' 

2 N F 2 ^ » N 

3 ^FCl • : 

C I^^^'S 
CINE VS 
C IN=NS 
C INzf 
CMA S 



CALL RCA 1 A (ZA, E4 ,Ut REIX, KKt L !‘-U,L IMR ,LI:^^ ) 

CALL r N ni (L TM ,L T-'R ,T IT L - , f.'^O TOC , NS T ^TB ,L I’lA, 'p 
1 N R C A S ) 




0 D » c ♦ Ni . E “-t » 



CALL ZE FC I P ( NPl^) , PS (NP12 ) , R c ( \* P 1 5 ) , P R { N ?8 ) , ( N ° ^ ) 

2 tPE (NO IC ) tOR ( N F2 n t ? (N02) t R E ( N P I I , R <= ( T o 3 ) t 

3 12 (NPI 1 ) . I ?( ^- P 12 ) R (r;Pl :!) , RE ( ^^^l R ) , P 1 (,W1 7 ) , • 8 { - ;Po ) ,Pn(NP 7 ) 

A ,R€ (NPA ) ,FC( : P 11 ) \ ) , -' 3 (NF21 I , . M I > ^2)) f 

5EMtI2( N P 13) f IZ (OF I •♦), PM C.P: 5) ,RB ( N o 7 0 ) , R 3 ( 1 N ) ,:iMrOtNE-^, 
ENNFA,N?C V 5 ) 



CALL I.NFLT(R' 

II 2 (NP I A I tP -( * 

? R e ( N P2 3 ) , R ^"^ ( ^ P 2 
3 12 (NPI 1 ) ,I2{ \P I 



( N FI ) » FB ( NPO ) , R :^ ( nF 3 ) , R c ( :>P^ ) , R3 ( N03 ) , I 2 ( NP I 3 ) , 

' 22 ) ,r (f|P2 I ) t r. { \ P 15 ) , = 2 ( N? :n . P U ^ 12 ) r <• j , 

- ' ) ,P - (“P2 5 ) , - ^{ ^P2 ‘> ) , c (NP2^) , 

) t > I T L - » r 0 



TO 3 ,N\-:z) , n.n:a,nr('ws ) 
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File: UKRO 



FCRTR4N A1 NAVAL PC5TGRADLATE SCHOOL 



C 

C 

c 

c 

c 

2CC 



C 

C 



c 

c 



c 

c 

( 



c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 



c 

c 



c 

c 

c 



8CC 

c 

c 

c 

see 



c 



c 



c 

c 



c 

c 



CALCLLA'^E AND VELCCITIES AND NEW NOCAL CENSITy 

LL 0 I £1 ( OR (iN F 2 ) .1 ^ (NP I A ) , ^? ( NPl ) , (NPl 2 ) , (NP Ic ) ( iP 1 7 ) t 

IP? ( N'P^ ) , F c(OP^n uP9) , ) ,r-; ^IP = ) , ^ E( NP'S ) , 7 / ( n “J M ) , h' R ( 0 P 2 7 ) 

2 f FF (NP2 3 ) »P.*3 (N F2 m ), P 1 (f!P 2^ ) t o.M NP25 ) t 0P( ::P7 ) , ^ q ( )P I 0 ) , ^ ( .si P 1 1 ) , 

3 I 2 (NP I 3 ) »P £( NP2 t ) 3 riP79 ) ,R5 ( NPZi ) f PR ( NP22 ) ( \P I'r ) t N^uTOP, 

4 NSTZTB, NrCCtNE^ » ‘.NE A tNRG.tS ) 



CALL FC A U®R (NPIO , W ,P P( N“^^) A fEA,R 6 ( NP8 ) , 

1P6 (NP2 ) » FR(MP1 )*P8(NP1R) tr 3(NP 10)» !2 (*>it^I2)tI2(‘JPI A) ,PR(N'PII) , 
21 2 (NPl 3 ) ,PF( NP2e ) f Pd (NP2 9 ) ,r, 3 ( NP2 A) , NN CO , N EA , rJN PA t N^CwS ) 



CAIL STIFF(73(^F2),F5^^P1),RR(^P■3),EM»2A 
1 , E A , W , T 2 ( N P I A ) , P - (^• P 1 6 ) , R ( N 1 2 ) , 

2R8 (NPIA ) t PR (NP 15 ) fKS (;vjP20 ) f 12 ( N°T2 ) t NNCO »r.’EA, ONE A t NRGWS ) 



5CLVE SYSTEM OF ECUATICNS 
CALL DSUC(R3(NP2C)fR3(NPlA)tNNCDfKS) 



CALL oEPLA(R5(NP12)»^d(OPIA)tKc(N^15) t \NCO tNEA ,MN'EA ) 



CC^'FAPE NEVi ANC CLC STREAM FU^’CT !ON 0 I S Tk loU^^ I S 
CALL TES7(P3(NF12)»R?(NP13)»X, N NO C , N E A ,NN EA ) 



CALL REL AX (RELXf PP (NP12 ) f *^8 ( NP 13 J , 12 (N^M 2 ) ,000 D , OEA , NfiE A ) 
TEST FCP STREAM FfJOCTICN CONVERGENCE 

^ I 

IF (X.L E.2 =CD-u2 ) GCTC 300 



CALL ODCC^ (X ,P P( NFLA) , RR (OP 12) »PR (NP 13) , P 8(.0°2 0) tl FL tNNCO ,NE^ » 
INNEA) 

NEXT ITEPATiro 

IF ( IFL . EC .C) GCTC 9CC 
GCTC 30C 
IFL = I 



call out FIT( X ,K ,r R( Nh’E) » =* 3 ( NP S ) , ( ^ P 10 ) , ^ R ( 0 1 i ) 

1 ,P E 1 2 ) I R ( ^ P I ) t ^ I^) tk E ( .,P I - M ■ ^6) 

2 , FE / ) f PR ( NP2 3 ) ,F^MJP2A ), kb ( .'P?5) , PR (OP 26 ),T R ( OP27 ) , 

3P E (NPA) , F E (Oi-5 ) • ' NCO ,.\CA ,,WEA , NPO^S ) 

PNAX 2C.CD0 
IN = C ,000 



CALL •^PLCT(7r(NP2),k^^x,7vr^\,r^CiP- 
1CA(N^I]A) ,N2nTrP,’c(.\'P'-) tR8(r;-5 ) ,P-( 
2CA (NPQ5 ) r Ek ,.ONE-^ fOPOWS ) 



) ,r‘^(,opoi),n^(opo 2 ) »o^( op-] 3 ) 
0F21) , F- (0722 ) , -R (NPl- ) , 



STCP 

FNC 



MPL JCC 
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file: 7LFQ0 



FCRTR^^ A1 NAVAL FCSTGRADLATE SCHUUL 



C 

C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 



^+^4^ + -43>45f4j;4:{<+-4 

4 ^ 4 « 4 



4-4*^4=Ji4 J|4*45{^4“'r4<:+«4t;-^->J4A4^'44.4« 44 4t + 

44!44!44i44:4-:'44:444«4s^ 4^4^'! 4- t- 4 * 

4->4«4^4- 443>4V44.4-4.'4*+V4'J:4:t4'}:4^44:44:44 4 

« 4 4^4 3 ^ 



^ 4*4 
45^ 4* 4 
44 * 4 ^ 

4*44 4 

i^ 4 .^ 4 « ^ 4 ^* 44 ^ 44 X 4 

4 * 4 * 4 * 44 « 44 ! 444 * 4 J^ 
* 



BEGIMiNG OF THE SUERJUTINE SSCTTQ'M; 
rCNTM\’S FCAL, VbLt SLIME, JACC^^, 
SHAPE, VFLCT, A.NC CSIMG. 



4*44 -I 
* 44 : 44 : 
4*444 
44 * 4 * 

44*444*4*4444444*4*444X44444 *4*444*4*4l:4*4.*4-*4^r 4 
^X 4 *^:,S 4 * 4 * 4 * 4 * 4 * 444 * 4 * 44 : 444 * 4 * + 4444444444*4 44 * 4 * 
44* 4*4 44*4 44*44:4*4*4* + 44*4* + *4*4*t + 



SLPRG'JT INE I MI T1 ( LI ! , LIMC' ,T ITLF, \^D TT3 , NS'^ATd , L I *^4 , N N : J , N , 
1 NNFh,N^CVS) 

4+4f-f4t>4444^-l+4+44444444444444444<44+44i4f444444444 + 44<4444444+4-, + 4 
444444 44444 4 44444444 4 44444444444 4+ 444444 44 44 44444444 + 444444 44 444-»-4+4 
44 4 4 

44 4 + 

4 4 4 + 

44++< + +4444 + + 44f++ + 4+ 444444444444444441-44444444444444+4+44444444444 + 
4444444444 + + 44444444 + 444+444444444444 + 44 + 4444444+444444444 + 4444 + + 444 

INFLTCTT FFAL>^?{ *-^^,P-Z) 

INTEGER A NP : AC ,N V’-? I TE *I C ,HNG-; , AE4 , M N EH , N ^ CWS , L I HP , I I 
CC^VPN /^C^J^T/ ^ CCL,MCGL1,\.\,NE 
1 ,NNE ,iMNEC 

CC.'^y^N vpr ^ ,mPPVs1 , KK 

CC /N FCM T / NF 1 , 2, N ,^V ; ,M^5 , ,.\P7t ^ II , 

INF 12 I : ,.'P IH P 15 , ^P PI 7 , NPl H, '1 Fl^, .NP^O, 1 , \ P2 , 

2NP24,i-viP2 f P 7E ,N^ 27 ,\P:£ ,NP2S , NP'^ C,‘l PI 1, NP12 ,MPI3 ,N?I H ,\P I 5 , 

3N PCI ,MFC2 ,N^rP ,NPf.v ,\PCF ,NPC6 
CCNN*r*) /lie/ MPEaC *N V*P IT: 

CI^'Ef.SICN TITLEdC) 



IOC 

c 

c 

c 

c 



FEAC(‘4PEAC.I CC )TIUE 
FCPVAT ( icAH) 



KEAO IN NUMBER NQCES AN C NUMBER ELE^EN*rS 



READIES ,2CC) N ^ , /• RC W , NCC L ,MCCL 1 , NRC'TCB,N 5T AT p 



FC R<^AT 


( 7 ]S ) 




NNE = 








NE = 


MPCV* * 


NCCL 


^^ CO 


= 


N.'' 




N6^ ^ 




* ; ^ 




NN FH 


= 


”\NE 




NFCrtE 




= 2 


VRCS 4 1 


NF 1 = 




1 




NP2 = 




NP ] + 


r NCC 


NF3 = 




NP2 


r. \ c c 


NP^ = 




F - + 


t \CD 


NP5 = 




^ P i 4 


.* NCL 


NP6 = 




\P5 4 


r, N c c 


NFT = 




NF ^ 4 


r NCO 


NFe = 




N P 7 4 


‘ V r r 


NFP = 




NFE 4 


^ N C 0 


NPIC 


= 


NPe 4 


NNCC 


NP 1 1 




N PIG 


4 NNC L 


NP 12 


= 


N P 11 


4 ^^CC 


NF ^3 


- 


NP 12 


4 


N P IH 


= 


P13 


4 N.vrr 


NP 15 


= 


N P 1^ 


4 N N J o 


NF 16 


= 


NP 15 


4 N.'":rz 


N P 1 7 




N P 16 


4 N N 1 C 


NF 12 


= 


NP 17 


4 NNrr. 


NF 19 


= 


N fie 


4 NNCC 


NF20 


= 


NP IS 


+ ^^LC 
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NP21 = NF2C 


4 


NN'^C^NNGC 


NF22 = NF21 


4 


^ N r 2 


NF23 = NF22 


4 


^ N C f 


NP2-^ = NF2i 


4 


NNf.C; 


Nf 2=^ = ^ F2^ 


4 


NNf C 


NF26 = ^F25 


4 


^^cc 


NPZ7 = NF28 


4 


NNCi: 


NF20 = NF27 


4 


NNCC 


NP;P = NF28 


+ 


NNCC 


NP20 = NF2^7 


+ 


NNCC 


NFIl = 1 
N P I 2 = N F d 


4 


N»\CC 


N F 1 3 = N F I 3 


+ 


,\Mr c 


NP lA = Nd3 


4 


^EA 


N P ! 5 = N P I A 


4 


N2 A^MNE4 


NPCI = 1 
NPC2 = NFCl 


4 


^ F C w 1 


NPC3 = NFC2 


4 


^ P ^ 1 


^ FC4 = A f C3 


4 




NPC5 = NPC4 


4 


y Qr vi 


NPC6 = NPC5 


+ 


N P r u 1 


NE>CR = L 


- 


NF30 


NE>Ci = LI.'M 


- 


N P I S 


NEXC^ = liv^ 


- 


F r E 


IP (NE 


0 ) 


Cdl -PPl (NEXCP ) 


IF (NEXC I .LT, 


:) 


CALL Er<P2 CiCXCI ) 


IP (N-XC dlT. 


0 ) 


CALL E-c'i (MT^c^ ) 


WR ITE( 6 , 2 10 


NF>U.,N= <c: .■.cXF'^ 



21C FCr'^AT(2>f* SPACE ;.VArLAPLE REAL S =*,I5,2X,* INTEG 

IR = »,IE,2X,* FEiL ^ =SI3/////) 

PEILPN 

ENC 

C 

C 

c 

c 

c 

SLPRr•UTI^E JACC0( tl fZl •C,'=,PC^ tZCtf.P JAC) 

C 44 ♦444444444^4444 + 44 4+44 4444 4^4444-444 44 4 + 4+44444444+4444444444444444 

C + + 44+44+44++4++^4444 + 4^^f + 44++4 + + 4444 + 444 ^. 444444 +^.^ 4 ^,+ + + + 44+.4.^44 + .^ + 4 



c 


44 






+ + 


c 


4 4 


THIS SL°PCJTIME 


CT'^PUTFS the jAcrcTAr; M\T"rx 


44 


c 


44 


FECUIPFC F'jR ThE 


rnror IN.'.T; AN SF-jR -A T IONS . 


44 


c 


4 4 


CALL STATZ'-EN 


T n = F I M T : ' M ; 


+ 4 


c 


44 


El = VALU^ 


n = 'THF ETA IN'^OT 


4 4 


c 


44 


Zl = VALLE 


-c TH-: xr[-:> I'JFIJT 


4 4 


c 


4 + 


C ( M = 


TFRIVATIVE C- SF(I) WOT Z 


4 4 


c 


44 


E( I ) = THE 


Z'cr TV iT[ V- CO S = ( I) -IPT c 


4 + 


c 


44 


net = p cc 


EPDiMTES :f the •,ctes 


4 + 


c 


+ 4 


ZCi ^ z cc 


ur OI s'u TES ~r- THE ELE<='i~'S NCOcS 


4 4 


C 


44 


RJAC = 2X2 


JAcC-iAN ,1 A IF IX OUTPUT 


+ 4 


c 


+ 4 






4 4 



C 44444 444444 + 44444444444444444444444+444444 44 44 + 44444 + 44 ‘-4-*-44'^4 + 444+4 

C 44f444++444++++444+4>44+44++444++4444+4444+4+4444+444444444+4++44444 

c 

c 

r>FLICI T h?AL=<*a( A-f-*P-Z) 

c I PENS If ^ Fj AC (? ,:) , :( 2 ) ♦:( 5 ), Fc^( 2 ) ,zcs ( 8 ) 
p jzc( 1 , 1 1 = w.nc 
F JAC (1 »2 ) ^ ro 
P JAC( 2,1) ^ C. 2C 
PJAC(2,2 ) = J.rc 

C(l) = (El 4 2.0C-ZL 4 2,C0‘->Z1 -El 4 EI^EU/h.GO 
C ( 2 ) = - ( Z 1 + Z 1 < r I ) 

CC-) = (-E1 4 2.rC‘'Zl 4 P.OO^Zl=^El - El^El)/-.00 

C(A) = i-l.JO 4 :i*El)/?.JO 

C(E) = (El 4 Z.CC-Zi - 2.20-J^Zl^El - El-El)/4,DO 
C ( O = - Z 1 4 . Z 1 - r 1 

C(7) = (-E1 4 2.:ri^Zl - Z.OO^Zl’^21 4 El^Ell/^.DO 
C ( 8 ) = (1 •GO - E! 1 ) / 2. C J 

Ed) = (Zi 4 2.i:c^“l 4 Zdzi 4 2.C0^21-"E1 )/4.0J 

E( 2 ) = ( 1 .CD - Z dZ 1 ) /2. AO 
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IOC 



E(3) = (-Z1 4 2,CC^E1 

F(^) = -fl + 

E ( 5 ) = ( Z i + Z' .OC’^F 1 - Z 1“=Z 1 - 
E(A') = (-UOC > Zl=^Zn/2.00 
E ( 7) = (-Z1 ♦ 2.CC-F.1 - Zl^Zl + 

E( 6) = -(Pi + ZHEl) 

CC 100 I =1,8 

PJAC (1,1) = P J -C (1 , 1 ) ^ 

RJAC (1,2) = PJAC (1,2) + 
PJAC(2tl) = hJ/?C(2,1) > 

RJAC (2;2) = RJAC(2,2) 

CCM INUE 
P E I U R N 
ENC 



4 Zl-Zl - 2.30«Z1«E1)/4.D0 



2. DO* Z1*E1 )/^.D0 
2.D0^Z1*E1 )/<».00 



0 ( I )*ZCS( 
D ( I 

2 ( I )*ZCS( 
E ( I )*RC3( 



I ) 
I ) 

r ) 

I ) 



c 

c 



c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 



c 

c 

c 

c 



SLPPOUTI>E OIST(rC.NCnZ, ZC,P<^I , phC , R , P , VZ • V P , MPtPEtH, ,vPl 

1 , RFC^T , TE.'^P, TTCT , 2TCT . ,hS , V J ,i J tN-^E - , E* iT CP , C E V i , P^' AT , 

2 ET A tNPGTC F ,*) >T ;t P M ;r.w S ) 

+ + + + + + 4 ++>++++f+ + + f + + 4 + 4 -*- + -,--f 4 + 

+ ++ 44444 f+ + ♦ 444 + + + 4 + 4 + ++ f 44 -f 4 + 44 +++ 4+<44 4 + + 44 44 - + + 4 + 44444444 +f 4 + -H 4 +'»'-K 4 



4 + 






4 4 


+ 4 


THIS 


SLiPPrUflNt: CiLCwiLATE' L V VELCCITIES aac a nev, 


4 4 


4 4 


^^nAL CJ'JSnv fFC'-* i K-’(;y.N PSI n I STKieUTIOM AT EACH 0^ 


4 4 


44 


the 


NCCFS IN SYSTE-M 


4 4 


44 


call STATE^MM OEr-IMTicMS: 


4 4 


44 




NE = NL'M^R fP EL ‘"YE NTS IN’ THE '•IFSH 


4 4 


44 




NN - MH:£P CF OCJ'^5 IN T h" vrcu| 


4 4 


44 




PC = APPA> CF R NrOAl cnir^ jl NATES 


44 


44 




NCCE = A^^RAY QP EL'=Mr,TAL 'iOCE ASSIGN'MOTS 


4 4 


44 




C = RATIC OF 3FECIFI C FEATS 


4 4 


4 4 




PC = GAS CONSTA^'T 


44 


44 




11 = INLE'f TCTM. *^EYPEPATU"^E 


4 4 


44 




FHCT = INL-T ^CTAL DE^'SI'^Y 


4 4 


44 




FHCN = WC‘ -N V=CTO-' HITH rpNSrTY 0 I S I B L T I ON 


44 


44 




ZC = APRA> CF NCO'L Z COr <01 NATES 


44 


44 




FSI = NC'Pal St..EA^ FUOCTiro VECTOR 


4 4 


44 




Phc = NcnzL static ocvsity 7 EC top 


4 4 


44 




F = NCCAL HLCCKAG- FACTCR 


4 4 


♦ 4 




LINLET = P:LET AXIU VELICITI 


4 4 


4 4 




\Z = NCOA L AX I AL 7ELCC ITY 


44 


44 




\P = iN'CDAL «^A0IAL velocity 


4 4 


44 




FHCSTA = ImlFT STATIC CFNSITT 


4 4 


44 




ALP = NCCAl ahSCL me FLC.^ aoGLE \RRAY 


4 4 


44 




FE = "TDAL kJLATIV- FLf/. .‘OGLE 7ECTCP 


1- 4 


44 




h = ^CC^L TO^al E'MH'-lPY V = C Tf'r 


4 4 


44 




VG = RCTC- SPEED IN FAC/GEC 


4 4 


4 4 






4 4 



4444 * 4 + 44444 + 44 -l 44444 - 444 ^ 4444-»4 + + 4444-»'4 444 + 444 ++ + +4 + + + ->*-t-+f 4+44 + 



• 444 + 4 * 4 - + 44 - 4 ^+ 4-444 44 - 



> 444+4 444444 



• 4444444 ’ 



- 44-^444 



I^FL!CIT REAL*F( A-h ,P-Z) 

I NT EGER 4 4 cAC 1 T= . I C ,^*^P0 , " E 4, Ti N E A , \RCWS , L I *"R , L PM 

CCNVCN /ACCU.^T/ N COL t.^KCLl t\’Nt N«= 

1 • NNE 

/^C^ JM / ‘-'-C’/. 

CCNVf'N /PCC V FO ,i-;,CP, ,TT , > S t'.^OCT, FPCT, PHOST A, 

ILINL'- ,LCLLET,PS: I , P . r Z ^ 2 . - 1 11, SC 

C I NENS TC^ ZC ( 1 ) iADfhi 1 ) , P { 1 ) • P - S S ( 1 ) , M S ( I ) , .iU( 1 ) 

0 I ^-NSI CA x - L { 1 ) , (1 ) • ^ - ( 1 ) ,^T :^ ( 1 ) , PT IT ( 1 ) 

C INEVS II ^ VZ ( 1 ) , 1 ) , (MtP^KDtVLC) 

0 I N F ^ S I r N D ( ^ ) , M - ) , - ^ ( S ) , P C U M 3 ( P ) , - T \ ( 1) 

C I ^ENS IlN El ( E I ,Z 1 { p I , alp ( I ) , C " ( 1 ) , F ^ F { 1 ) , HR ( 1 ) 

C i ^ Er S I r ^ MCE ( V T - , 1) , I S r \ ( h ) . ^ TE ( 1 ) 

C I I C^ DR ( d ) ,i:Z( T ) , FJ AC { 2 ,2 ) (1 ), CE71 (I ) , PPAT ( 1 I 

CATA Z 1/ 1 .00 , J - 1 .';0, -1 . OC , - 1, CJ, 0. 00 , I ..J Jt 1 - .>0/ 

DATA El / I .CJ t I .00 tl .CO ,0 . )0 ,-l .To,-l .OC, -1.00, 0. “TO/ 

BEGIN UTTH MO \COE CF FIRST ELE'^ENT ANC THEN CYCLE 
THPCLGH EACH ElE'MM . 
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ICC 




211 



2AC 



C 

C 

c 

22C 



251 



GV 1 = G - 1. COC 
I S T A ( I ) = 3 
I STA(2 ) 2 

IS1A(3) c 1 
ISTA(A> = I 
I51A(3) == 1 

IS1A(6) r 2 
ISTA(7) = 3 
I S7A( =3 
CC 100 I = l,MPCV.l 

H(I) = CP ^ iTCld) ^ GC lAA.OOO 

HS(I) = CP ^ TSyPd) 9TU GC ^ lAA.ODO 
CCM KiUE 

CC 200 II = 1 t NE 
NTt^l ^ NTE( II ) 

IF( 1 - 2 > 2 10, 22Qt 230 



CC 2AC V = 1,^^E 
1ST M = I ST A (N ) 

CALL SL VlZi »P5 I ,VZ, ,NCOE ,V *1 , FC 1 1 , I 2 » A L P 1 
IChC^ALP, Eld : , ISTAl 

2?^hCTI, H i tPSl ,??,C - S 1-2 ,0PSIZ2, P ,-:S, Z 1 ,VZ 1 ,VRl , ZC, E 
3^^rCt^’t:A ,NNE^,i\prvS ) 

IJ< ^ - vpr^ 

IP( I I .L-. UK) COTC 21 1 
IF( TSlAl.f 2 .2 ) GCTC Zll 
C'^SI Z2 = O.COO 

call ClCT(' 32,^ C: I d'CTZ dl ,P] ,TT1 , PTi, ,HI ,h 

2PHC1 , MC ] , AL ?2 ,i)PSU 2, C:^3 IZ2 , I £T*;1, T 2 ,TT2,P2,PT2 d' 
3\M ,vy2 ,^^ro V,NI>CXS) 

IF( iriAl. 2AC 

M M = ^^^)P ( I I , V ) 

ppES5(.\:n = P2 
(^ IV) = PT2 
TTCT (^ ly) = TT2 
TE.‘d(M,V) = T2 
h ( 0 1 ;m = hi 
hS(\»d) = hSl 

N IV ) := s;Hr2 
RH^TT (N h ) ^ KHCT2 
AL^^ ^ ly ) = alf 2 

VZ(My) = I ^ A. COC - O^^SI^vF / (-‘^0 2 ^ 62 - '^CI2 
Vk(NIV) = -dA.jCC 0PSIZ2 / (-HC2 ^ B2 ^ I 2 
Vl‘( \I> ) = OTAN( ^LP2 ) 

W-L IV) = PC I 2 VL( MV) 

EKT-CP(Mv) = e\’T1 
CCOT lyLE 
GO'^C 2CC 



DC ?5C V = l,^^E 
ISTAl = I $T A (y ) 

- ^C(NFrTpp) 

PviNl = RC(NFCTf^e MP'^Wl - 1) 
call SLIN - ( PC dS I ,vz, Vr , MOUV‘^1 , FC II dCddL 
IPhC ,AL^ , £ 1 d I , I ^TA 1 ,y , FhC-^T , TE ^ P , TT:^T ,PP2S5 , PTfd d 

2FhrTl ,H1 dSl ,62,fHS d2 ,CP5 IZ2 , h,.-iS, Z 1 , VZ I,V='d, ZC , E 

2^^CD,NEA •^^= A,M-r VC ) 

CALL FC^KPCI 1 ,Vvi,eET;idETA?dv AChZ,pv:,Xl d’d 
I CF V ,FC I 2 d^O: dhr 2 , T I, T^l U1 dTI , 1 , l* hCTl, PHOT 2 , 

2GPSIZ2,2FAC, ALF2,P2 ,PT2, T:,TT2 dO'': ; iWZ , PPASS •NNC 
3NFCaS ) 

MV = NCOE ( I I ,y) 

PhACT = (UCO - °PA^S )^( I .00 - PPASS) 

IF(UTAI - 2 ) 253, 2 5 I, 2 52 

SS (M M = ( F? + FI ) / 2.0C0 
PT(]T(iNiy) = (PT2 + p*'!) / 2.000 

TTCT(M.v) = (TT2 > TTl) / 2.000 

TEOP(MM) = (72 + TI) / 2.0C0 



, ^TE1 dHCl , 

, r 1 d d T M , ? r 1 , 
NTurP^cNTl, 



HC2 ,PH0T2 , 



/ 12.00) 

/ 12 . 00 ) 



, NT“l,Fhni, 

»P1, i,Ti IfP^l, 
:d-^O^dNTl, 

a: d'iT,0oSIR2, 

£ ,N6 4 ,\NEA, 
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25C 

C 

C 

C 

23C 



26 4 
26 5 



261 



H(NIf-) = CP « TTCKM’M ^ p TU GC « W^.ODO 
hS(M>) = CF TE'"P(Mn < PT‘J - GC 144,000 
PHO(NI-^) = (FHCO + PISCM / 7. DC) 

PHOTT(MM) = (^HCTP + =IHCT1) / ?.C00 
ALP(M^) = (;iF? + ALPl) / 2.Q00 

8E(MN) = (PrV2 ♦ eFTU) / 2.JOO 

VZ2 = 1^4,CCC ^ LP^IP2 / (rHC2 H? ^ PCIO / 12. CO 
VC2 = -Uh.OCC ^ CPSIZZ / (PH02 ^ 82 « RCI2 / 12. CC) 

VZ( ) = ( VZl > VZ2) / 2.0C0 
VR(NM) = (Vr^I ^ V«2) / 2.0 CO 

VU(^^^) = (Vl^'’ ^ V'll) •-}= CTAN ( ( N i:-’ ) ) / 2.0D0 

WU(M>) = > VMl) ^ CTA N ( -\i r ) / 2,0 00 

WPL(NIN) = (PCII+hCIZ) ^ VU(NIM)/:.C00 

HR(M>) = H(My) - WG^(RCI1 ^ RC I 2 ) * VU(NrO/2.0D0 

ENTRCF (M "^) = C. 5C0C EMT 

Gcrn 25C 

P‘=^ESS (M*^ ) = P2 

PICT (MN* ) = dt2 

TTOT ( ^ I^) - TT2 

TE*-1P(M^) = T2 

CEVl ( ^ ) = OEV 

H(Niy) = CP TT2 * BTJ ^ 144. COC 

hS(M^) = CF ^ T2 ^ BTU - GC ^ 144, CDO 

P^C(^^M = FHG2 

PHOT T (MM) = FHGT2 

ALP( N I'- ) = 4) P2 

er:(M> ) = EET^Z 

VZ(M^) = 144. CDC - 0P^I^2 / (^H02 * 82 * PCI2 / 1 ? . OvO ) 
VP(Miy) = -1^4. OOC - 0PSIZ2 / (RHC2 ^ n2 * RCI2 / 12.00) 
VU('^'I>) = VNZ CT4.\(AL^2i 
WL(Mf-) = Vyr « CT0\(n = TA2) 

WPL ( MV ) = PC I 2 ^ V0( MM ) 

^r'(M^) = r(MV) - WG - PC 1 2 ^ Vti (MM ) 

E\T='CP(MM) = ENT 

GCTG 25C 

BE( M M = EE 

V^UIMN) = VVl ^ CT.'V(8ET4 1) 

HP ( M > ) = H (r I V ) - rtG =5^ PC 1 1 vu ( \ ro 

ETA(MV) ^ (TU/(TT2 - TT 1 ) ) * ( ( ( 2 T 2/ PT 1 ) *^- ( GM 1 / G ) ) - l.OCO) 
PRA" ( y PM - FT 2/^Tl 
CCNT IMF 
GOTO 2CC 



0^ 26C V = 1»^^Z 
ISTAl = I GTM'M 
R*^AX 1 = PC ( r ET;!Tn ) 

PMIVl - >^(^^TAT3 - 1) 

MM = XCOE ( I I, -M 

CALL 51 IN - ( PC » F3 M VZ • V-M , FT 1 1 MC I 2 » 1 , - 1 , ' HP 1 , 

IPHf tZLP , E ! . I If IS' J 1 ♦ M - hOtt , TE ♦ 'T'M 5S, , kl Ml . TT I. 

2FHCT1 , »"1 ,HS1 .B2.0PS 1-2 ,CP5 IZ2, H »HC,Z 1 t VZ 1 ,VPlt ZC t I'M F - N T 1 , 
3NyCD,NE4 t^PP M ) 

IF( ISTAl. ^0 .1 ) GCTC 26^ 
epTAl = A LFl 
GOTO 265 



BETA! = ALF (M 
C^LL 5TAT(FCI1 
lCEV,rCI2 •FHOi 
2CFS I ^2» CF ACt ALF2t 



) 

f RET Al , BET A2 ♦ F*' 5CHP , * X] • ^ M pj l 

2t ^ I. Ill tP I .f’Tl , ;L^ MthTTi ,-C 

PC,‘^TZ, T2.TT2 ’-G t / ’^2 t A 3S , v ,0P . 



3 N P C A S ) 

react = (l.CO - RPASM-(1.0C - APA^S) 
IF( IS1A1 - 2) 26 3 ,2 6 1.242 
pc>ES5(MM) = (P2 i^L) / 2.000 

FTCT(y[v) = (TT? + pTi) / z.oo: 

TT3T(^IV) = (IT? f TTl) / 2.000 
TCMPiMV) = (TZ ^ ID / 2.0CC 
H ( N I V ) = Hi 

HG( M ^ ) = 

RHC(NIV) = (^HCZ + RWH] ) / ?,000 

FHOTT^MM) = (^HO'lZ + ^HOTl) / 2 . CDO 



M-'^,0°SIP2, 



18S 
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ALP(M^) = (PETA2 + RETAl) / 2.0DC 

VZZ = lA/-f.CCC CPSIR2 / (RHC.^ ^ E2 ^ PCI2 / 12. CC) 

VP 2 = -L^A.ccc * r^siz: / (=^nn 2 - r 2 « pci 2 / i:.cc) 

VZ( N'TM = i\Z] + V2’) / 2. jCO 
VN ( N I"* ) = ( VP 1 VR2) / 2 . 0 CC 

VU(M^) = (VN2 + VMl) CTmN ( iL*^! N IN ) ) / 2.000 
ENTRCF(M.’-^) = C.500C EM + ^Mi 
rtRL < N ) = FC 1 2 ^ VU( NIM) 

GGTC 26G 

262 PRESS (MM ) ? 2 

PTOT (M V) = PT 2 
TTOT(MV) = tt 2 
TE-MP(NIV) = T2 
CPVl (M'^) = CSV 
H ( N I V ) = hi 
hS( MN ) = hSl 
PHC ( N ) = ?hC2 
RH0T1(\M) = MOT 2 
ALP(NI*^) = P5TAZ 

VZ(^I^) = iA^.cno CPSIR2 / (RH02 - 32 - -CM / 12.00) 
VPINIM = -M^.OCC 0^*>SIZ2 / (‘'HC2 ^ ri2 - RC!2 / 12. UO) 
VU( MN ) = W2 ^ CTAN( i^L^2 ) 

WRL( N IN ) = PC I 2 * vU( NP') 

ENTRCFINM) = E\T ^ ENTl 
GOTO 2cO 

262 ETA(MV) = PT^/PIl 

PP AT (N M) = P'T2/PT1 
26C CCNTINLE 

CC CCNTINUE 



FETURN 

£NC 



C 

C 

C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

( 

c 



c 

c 

c 

c 

c 



SLPRCUTINE ShAFE(Ef Z.3F) 

-»-!•+♦♦+++ + -♦• + -t‘*t+-»'T*+++ + 4> + + r^'f-»* + ^ + + + + + 444+ + 44 44 444 + 4444 ♦4 + 444 ♦ >+++44 + 4 + 
4+4 + ♦ 4 44++ + 4+ + ++++ 4-*'44 + 4f4++'+4+4+++4+44 + 4 + 4+ 444 + 44+4 4 + 4 444 + 4444+4444 



4 4 + + 

4+ THIS SUBPCUTINF calculates Th- SHAPE FU'iCTIONS FOR + + 

4+ local mm from left T: right, 3CTT0^ TC Tf-'^ 4 + 

4 4 IN' THE Z-t PI.Av:-. 4 + 

4+ call STME^‘-M OEFIMTIGNS: 4 + 

4+ z - VALLE CF the EXCIES INPUT 4 + 

4+ F = value CF Th^ ETA loo-jj +4 

4+ SF = SHAPE FUNC’ICN VECTG^ 44 

44 44 

♦ + 4 + ♦ ♦+ 4 ^ 4 + ♦4-*-4+4 + 4-» ♦♦+44-444444++44++4+++4+-|-444+444 + -r + + + 444+-^ + +4^+> + 



44444 ■|^+ 444444 ++ + '^+ 444 f 4 + 4 ++ 4 •r++ 4 + 44 f 4444 ++ 4 + 44 ++ 44444444444 ^ 444+44 + 



INFLICIT PEAL-E( MH ,P-Z) 

CIVENSIfN SF ( E ) 

$F(1) = (Z^E 4 4 e^F 4 Z^ZM 4 Z^-E— E - l.nO)/H^.OC 

SF(2) = (l.OC 4 E - Z-M - Z'M*AM/^.00 

SF(3) = (-Z^F 4 4 d-E 4 Z-Z-£ - Z^E-E - 1.00)/A.DC 

5 F(A) = (i.nc - - Z + z-£-M/z.no 

5P(5) = (Z-C 4 Z^Z 4 EM - Z-Z^r - - 1.00)/ A. DO 

SF(^) = II. OC - c . 7 -^ + E^Z-Z)/2.0C 

SF(7) = (-Z-^- 4- Z*Z 4 E-E - ^-Z-Z 4 - Z^E^E - 1.00)/A.00 

$F(3) = (l.DC - E^E + Z -Z^'E-£ )/Z.nO 

FETUPN 

ENC 



SU EPrUT I^ E INPUT ( 7C ,B , MP ,3 E ,NTE , ^ HCE , PP A T , OF V 1 , P hC , 
lUVEL ,PS I ,FSI C, TF'^ }-, TTCj, PCCS5 pj.jx^ q^rTT,NH5,:irjC,TITLr , 
2NPC TCP , NNCC , M: A ,NN EA,NF CWE ) 
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FILE: TLP80 



FCRTPii^ A1 ^AV/^L rCST3RADL^TE SCHOOL 



C 

c 

c 

c 

c 

c 



+ 44444444444444444444 4444444- 



44444 44 4 + 4 44 4444+44+44444 + 44444444 
44444 44 4 44444+4444444 44444 ► 4+444+4 



+ 4 
4 4 

4444444+4+444+444+ 
4444 ♦ + ♦++ + 4444 44 4444 ^ 



44+44444 
4+44+4 



IMPLICIT P?AL-F (4-H,P-Z ) 

,I CfN.NCC »^54,N ^E4•NPC,^$, L IMR,L I’^I 
NCCL ,*XOLl 

CC^'^ON /FCr- 1 / FO *G, CP f PT t^iO.TT , F Ha ,RHCST At 

IL I^LE^ tLCLLET ,PS I T . -^TUtP Cl Z,F1 I ItOC 
cCi*-^'CN /Frcur.’T/ .^flw t.nowi ,kk 
CCN.'^ON /lie/ .\F EAC ITE 

C IFENS /C (i ) t ^ C( 1 ) t P( 1) , ALP ( 1 ) ( 1 ) t RHO( 1) ,’JVFL ( 1 ) 

D I ^E^S I C^ PS I ( n , IC ( L ) , T I TLC { n ) t EVl ( 1 ) AT { n 
CI^E^SI^^ T'-Mp(i) ,-TrT(i) ,PRESS(1) t^TCT(l) 1) 

C I I C^ .NFS ( I ) t.NHC ( 1 ) 

CI^E^SIC^ M- n UXC CE(X^ 4 f I ) 

CA7A STt F/ »S TCP • / 



c 

c 

c 

C REAC ^CDE NL^eEPS tXCCAL CCOROPiATES (IN INCHES), ANO 
C ^CCAL PLGCK^GE FACTCF. INLET STATIC'! ZC ( ) NOST = 0.00. 

C LAST ^rljAl 2C(->li\) i^L£T HE AT THE CUTLET STATION. 

C 





CC 170 I = 1 t^^ 

kEAO ( 2CtlCCC) ZC( I) f PC { I ) ,81 I) 


loco 


POP’'* AT (2^1= .1! ) 




17C 


CCNMNUC 






CC 171 I = I,^^ 
e( I ) ^ E( i ) ^ C 


.91 


171 


CCMINUE 






IT 1 = NPCTC6 

112 = I 1 -► ^ U 1 

113= I 12 + ^prv + 


1 




11^ = HE 4 

115 = IIA + ypCu 4 


1 




HE = I 1 5 + ^nCaI 
11 7 = 4 yACX + 


I 


C 


11 1 A. = n 1 4 1 
I12A = H2 1 

IT^A = 112 + 1 

I l^A = IIA 4 1 

I15A = 115+1 

ITEA = : 16 > i 

IllA = 111+ 1 

HER = I 12A 4 1 

IIP RLCCK-r,^ FCP 


7J^ CESIGiN 


C 


P( IT3 ) = r( HE) < 


C.-COC 


C 


e { I T A) = 3 ( I r H ^ 


CH^EDC 


C 


B( H5 ) = 3( I T5) ^ 


C .9700 


c 


e ( IT3 A ) = 3 ( ! ) 


- :.^2jO 


c 


P ( IT^ A ) = 3 ( I l^A ) 




c 


e ( H5 N ) = 3(1 ) 





C P ( IT3Fj ) = B ( IT?^ ) ^ 0 .'aoo 

C TIP BLCCkZG^ FCF 30^ CE5IGN 

C e ( IT? ) = -( : T3 ) ^ 0 .E5PC 

c e ( a^4 ) = T( :t^ ) ^ j.ttoo 

c e<a5) ^ E( IT5) ^ n.^ 2 Do 

C e(IT3A) = 3(IT?A) C.S/iiO 

C c (IT^ N ) = B ( :ta A ) ^ 0 .-^300 

C B ( IT5A ) = 1 ( I T5A ) ^ 0 

C e ( IT 3 B ) = 3 ( IT 3 P ) « 0.^200 

c 

C PEAC IN CCNNFCTIVITY >CATP:x. LfCNL NCOS XU.’^BEPS STAPT 

C AT ELE'^'cAT’S uPf^EF R IGir r ANC CCi^NEP ANO TPAVEPSE CC^. 

C PE4C IN IHE apMENT TYPE I NOcN T I F IF A T tC.N 

C 

CC IPO J = I ,Nt 

R£AD( 3C,101C ) NGOE( Jt 1 ) ,NCCE( J,2 ) tNCOEI J, 3 ) , NOOE( J,4 ) 



► 4 
4 4 
4 4 
4 4 
4 f 
4 4 
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FIL6 



TLF6C 



FCRTP/N Al NAVAL PGSTGRAOIATE SCHOOL 



1 tNODEf ,^C:E{ J,6),i\CCE(J,7) ,NOC?(J,3),NTC(j) 

1C 10 prRMAT (915) 

18C CCMINUE 

C PEAn IN INLET TI-p:q VCOYNA'^IIC CLANTITIES; FLHw RATc, INLET 

C LI VEL'^r ITY, '‘L TLET u V = LGC I TY , KHC 1 1 H^ST A , P TO T , TTCT ,N 

C UMTS APE \S PClLC’v^S: FLOW F ^TE (LE’*VSEC) 

C VELOCITN (FT/SEC) ; PHOT ANC PHTSTA (L.T^/CU FT) ; 

C FTCT (P5F) ; TT { CEGPEES kAfiKINF) ; SPEED (PPM) 

C 

10 3A P E40( 2S , !C 35 ) ? FE E fPT ,TcM ,TT ,PHCSTA,R hCT 
1035 FCF'^AT ( ^ F I U 6 , 2^12. a ) 

C REAC IN FLUIC/GAS CC N S TANTS » ^'^ ( G A S CONST AN T ), GAM^A , CP ( PTU/LBM-R) 

^ PEAO( ? 5 , 1 C37 ) .^CCT ,CP fPG,G tSPEEC ,UINL ET 

10 37 FCP^ATC^f 12. 7,Fa.i.F13.5) 

C 

C find CMEGA (RAC/SEC) 

c 

VG = SP6EC-2.CC*3 .1 A15R3C0/6C. CO 
LINLET = LINLE 1-12. COO 
C 

C COMPLTE the FIRST ESTIMATES OF UVEL(I) AND PHO{I). 

^ CC 165 I ^ 1 N 

LVEL (I) = U IMET 
PHO( I ) = -nr STA 
TEV^ ( I) = T E'' 

TTGT ( I ) = TT 
PPESEd) = F^ES 
PTOT { ]) ^ 

RHOTT(I) = FhtT 
166 CCNTINUE 
C 

C READ NCCf^S WHERE PSI IS SPECIFIED 

C 

NNBC = 2 < MCC! 1 ♦ YRGnl - 2 
CC I’^O I = 1 M^C 

READ ( 3 5 , 1 C2C ) N5C ( I I 
1020 FCR’^ATC 15 ) 

ISC CONTINUE 
C 

C R6AC IN THE FIRST ESTIMATE CF SYSTEM’S PSI DISTRIBUTION 
C 

CC 1^3 I ^ 1 ,NN 

READ {^C, 102 1 ) FSKI ) 

F S I C ( I ) = F 5 I ( I ) 

1C21 FTP 1 AT (rl 5. II 1 

193 CCNTIN'JF 

LINLT = LINLET / 12. GUO 
C 

C FINE NC2ES WHERE F{P,Z) IS SPECIFIED 

NNN6C = - NNPC 

C 

c 

C PRINT ^LL INPtIT DATA 



C 



c 


GC 1 


!C1 




22 1 


r. R ITr (N 




)T ITL E 


1C38 




/ z//////// 


’ * ,2CX ,10AA) 




V. R ] T 2 ( 


WRITE tlCAC 


)f.N ,N'£ 


1C40 


FC F^AT ( 


• M V X , • ^ C 


. CF NODES = SI3»2 7X, 




1 » N r . G F 


E L - -1 EN T S 


= MI 3,/ ) 




WC IT’^C: 


WF ITE , iC^l 


) iPC ^ ,NCCL 


ICkl 


FChNM ( 


5>dNL. CF 


XCWS = M I 3, 23X, 




1‘NC. .^F 


CCL'J*'.nI5 ^ 


M 12t/ ) 




VnCTJc: (?J 


W F ITT , IC^^ 


) 


u \ 
O 


FCRv^T( 


• » ,2 CX t » E 


l^yARY cr NCDAL CnOROlNATESn 


c 


CCTC 






W F I T F ( N 


•>? IT^,1C5C 


) 


1C5C 




• M’N'nS-* 


.FX ,» Z( I ) MU X , • d ! ) Ml IX, • P( 




1 7XdAP 


S FLOW AND 


•t 3X, MML FLOW Ars)G* /) 
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FILE: TLPBC FCRTSflN A! NAVAL PCSTGRADL^TE SCHOOL 



C = 1. 

CC 105? I = 

WR I TE (NWR ITE t IC6C ) ( I » ZC ( n , PC( I ) ,6(1) ,AL?( ! ) , BE ( I) ) 
IF(UFC,MN) GCTO 10 5 h 
IC = 1 

00 = FLCAT( to / AC. 

IF(CC.NP.O GCTG 1052 
UPI TE (N^R!TF,1C33I 
1053 Fhrm ( n M 

ViPI TF (^ wR ITE , IOAd ) 
wRiTE(N‘^t^ITE,IC5C) 

C = C ♦ 1 • 

GCTC 

105A VP I TE (^nR !TE , 1 C53 ) 

10 52 CCM!V:JC 

106C FCP'^AK* * ,I3,2X,FI3.6,2X,E13.c,2X,E13.6,2X,E13.b,2X,E13.6) 

VC ITE (NVF ITE . 1C5F ) 

1062 FCf‘^AT(* » ,2 7X system TCPOLCr, Y N // , 2X , * ELEftEN T N 
1 iC> t "NnOE S • , ^C> , * *'YP- CF 'LF’^EMM 
VB iTF( \ r^i a H I »m:oe( I , i) ,M ]?= ( i , 2) ,^'‘^je( i , 3 ) i a* ) 

1 tNCn^M I ,5 ) •*iCL:E( I ) t'iLCEt I , 7) ,\OCE ( I , ? ) , \ T E ( I ) , I ^ 1 , N E ) 

1C 63 FC-MAT( • %3X , I 3 .6X ,T 3 ,3X a 3 ,3 X,I3,3 X, 13 ,3X, 13 . 3X ,3X, 13 , 3X , 13 
15X , 13 ) 

vB ( wp iTE ,ic6A )vacT ,tt , <; f^eo , u raa ,p c, e,cp 

1C5A FC^^MAK///* 'tlAXaP'LLl 'ThE t CY ^ H I C V^KlAtaES ARE A? rOLL.:WS» 

1// ,AX, • FLC,^ 5ATF = L C'" / SEC • , // , ‘^ X ai CT DENSITY = *, 

2 CL FI * » // tAX ,* TCT FREESU^: = *,'13,6, » PCI*,// 
3,AX,»T.T- Tc'M>FCATLf:E = *,Er?.6,» OEG aM K 1 NE * , // , 

A AX, * '^O /T rnCAL SFEEE = *,^13.6,* BPY*,//, 

5 A>,*i*iLE7 J VELCCITY = *,F13.c,* FTySEC*,//, 

7 AX,*GAS Cr'iSTA'^’T = *,E1:.6,//, 

8 A>,*RA7IC SPrriFIC HEATS = *,E’3.6,//, 

9 AX,*^PFCiriC F-a CONSTANT P-E.S5LRE ^ *,E13.6,/) 

VP IT'^INU? tTE, )=F^‘STA 

1065 FCPVA'-t* •,3X,*S’4TIC CEN5ITY I^:L ET = *,E13.6) 

WR ITF.r'VP ITE , 1 C5' ) 

VF nr C^’UF ITE,iC7C ) 

1C7C FCPVAT(« *,AxaNC:-5 v>^ERE PSI IS S P EC I F I ED »,///, AX , 
l*NrCE NC.* ,lOX,*rSI ( 1) *) 

VP !T0( NV P I 7E , 1 CCO ) ( N “C ( I I , ^S 1 ( NEC (I) ) , 1= 1 , NN3C ) 

1080 FCPMA^( » *oX,I3,lCX,E13.6) 

V F IIP (NW F ITE , lC3i ) 

S9S9 P^TLRD 
END 
C 

c 

c 



c 

c 

c 

c 

c 

c 

c 



SLePOUT INF 7 EBC I ( F , PSI ,F ,U^2 L,VV?L , T VE L , S 5 , , ZC , 

,NFS ,N3C ,’>R L , PFC , ^J-LN ,ri .HS , / L?,TV'L , ^ , CZVI - 



2EN$ ,m::e 



, j: 






L , 



^ N ' 



, 



.V 



) 



444^ 44 ^4+4+4.444+4-444■444 + +-♦.>-f.+ ^■f + 44>4+-^-4 4 + 444 t44.444-^4>-»‘44-t> + 
+ 4444 44444 4 4 4444444 + 444444444 4 44444 +4 444 44 44 44444^444r4 444 + 
44 
4 + 

444 + 4 + 4 444+4444^+44+4 + + + + 4 + 4444*4+4 + 44 44 4 4 + -,4 4+44 + 4444+4 + 

44 + + 4 4+ + 4+ 444 + +4 + 444 + 444+444 44 444+ +44^44 4+^++444 4+ 44.4.+ + + 




INPLICn Sf U«5(i-H,F-Z) 

INTE!~.!!rl=SA \'’FAt:,.'.VS I"‘-E .:C,MKCD,,\*'«,‘i.’'=A,“.’F^V,S,L 
CO.''C'i /FCC't/ CG , C, CP . i^T , TT , .>G , FhCT .FHCFTA , 

IL I^L'T ,LCLL= T , FS: I . ,F? , FI a , :C 

CCN'-’C'-I /^CCJ^T/ ’'C'>L , iCCLl ,r.N , iNc 

1 , ^ ^ , M '! e c , \fj ^ p c 

cc><“'':?! /^ccu^7/ fra .Mfiowi , KK 

c IV5' F I ''•i ( 1 ) , 1 ' iaa-c-i, 1 ) 

c I Nf ra I r^ e 1 : re . a , n , p' a 1 ) .PH-a 1 ) , p-t ( Tim, 1 1 , r’’’. ( n 
c GV.”L < i I , ;v-L ( 1 ) , TVFi ( 1 1 ='",g( i i ,pc< i ) , c'vi ( 1 1 

c iN?-'c T'-N «( 1 ) ‘u i I , zr. ( i ) , wiir ( 1 ) 1-:\( 1 1 ,hv ( 1 1 at ( i) 

r: ij'"* s I c^ H( 1 1 ,MC (1 1 , ALP ( 1 ) , c- ( 1 1 , T -j EL a ! , - jtkop { 1 1 

C IV'^NSI CN \F S ( 1 ) ,,N‘^C ( 1 I 



c 

C IMTIALI2; 4LL .*<'.TRICES 
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FILE: TUPeO 



fCRTP^N Al NAVAL POSTG^AOLATE SCHOHL 



DC 110 I =ltNN 
F( I ) = C. CC 

PSI ( I ) = C. CO 
PHS( I ) C.CC 
UVEL ( n = 0 .DC 
VVEL ( I ) = 0 .DO 
TVEL ( I ) = C^CC 
PKFSS(I) = C.CC 
PC( I ) ^ 0 .CC 
ZC( I ) = 0 .cc 
B( I) = c. ro 
NFS( I ) = C 
ETA( I ) = C.CDC 
N'BC ( I ) = 0 
V^PL( I ) ^ C.CC 

RhO( n = o.co 

RhUN (II = 0 .CO 
ENT^Cf(I) = C.CC 
Ml) - C.CC 
H?( 1 ) 0 .IOC 

HF ( I ) = J • C C 
ALP( I ) = C.CC 
TV^EL ( 1 ) = C.CC 
Bf< I ) ^ J.CC 
CFVl ( I ) = 0 .0^0 
PRAT ( J ) = C .OCC 
nc CCMIN'JE 

CC 150 I ^ 1 ,NiN 
DO 15 C J = lt^^ 

I tJ ) = C.OC 

15C CCNTINLE 

DC 160 I =1 f^^E 
Cn 16 C J = \.^rc 
Ef-5 ( I , J) = O.CO 
16C CCN'TTvjUF 

DC 1*^5 I = I tNE 
NT?( I ) := C 
00 165 J = l.NNE 
NCCE U , J ) = 0 
165 CCNTINUE 
RETURN 
FNC 



SLE-COT I r E OUT PtjT (V , kK ,UV-L t VV EL , TV - L , - L fPSI , PC , ?C 

l,RFO,R-''L»H,M:,Tr^P,^^UT.^-ESS, TTCT, ^ hC'^T ,AUP, CE , 

?NNCC,.‘.£^ tr NE^,V-r..3) 

4+ + 44*-» + f-»-4- + 4-*-f+ + 4t4*^-**4 + 444f4.>4.44 + 444^“44-^++4 r+4-f4'44ff4-*'44+-4+444-*-4'^f 
4444 ♦44-4+44 + 44444444444444444 4- 444444+4+4 + +444+4+4+444444+444444+4444 

44 

4 + 4 4 

444 ♦ 44444+44 44>444 44 + 4444444 44-44 + 4 44444+ 4 + ++4 + + 44444 4 + 444 + 444+4 44 + 4 + 
444-1 ♦ ♦ ♦4 + 44 f + i+ f + 4 + ++ +44 44+4 44 444+444444 + + 44+4+4444444+44 + 4444444+44 



Implicit -eal'*^e( .?-z) 

INTEGER ^4 ‘ - cm: , ^ u:- I TE , [ C , NNCD , E 4, N ^ £4 , ^|RCWS, LI tLlMl 
CO^^CO /^rc■J^T/ T^lEL ,:iCuLl ,NN, Nr 
1 tNN.':-^C 

/LIT/ '.^EAC. \ a^MTE 

CC/^‘-*CM /FCC'1/ ?C t L .C? T f TT , i;,v; PFCTtRHGSTA, 

IL I M.-T tUCtLE , P S: 1 • 1*^0 ,F Z! 2 ,F1 I 1 ,Cr 

C I > E C I C .N ( I ) . ' C ( 1) T RO ( 1 ) , n ( 1 ) , i 3 ( 1 ) , S : ( 1 ) 

C I^F^S ICN LV - L (1 ) ,VVEL a ) , TV-L ( n L ( 1 ) , T wEL ( I ) 

CTN^NSI^N -‘P ( 1) ( 1) ,PRE3 : ( L ) *P TTT( 1) ,kMQT- ( 1) 

C INE\S I CN AL P ( 1 ) * FE ( 1 ) 

C 

IF( IFL. ^C. 1) GZrr 
WF IT- ( NV, F ITE , 1 )KN ,X 

16C0 fcf:^'T(» ^-rminitec it at ion ^in.»,i3,/, 

l» RESUl TS VHiCh r-CLLC/^ AR'= FCR CGMVERGcNCE EPSILCN = *t01O.12) 
C GCTG 131C 
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FILE: ILREU rCRTR/iN 41 NAVAL PO STG RAO L TE SCHOOL 



C GCTCllOA 

45C v^P ITl ( NUP I "E , 1 ICC JKK ,X 

12CO FCPMAK* FU^ICTICN CCNVERGFNCC C^ITFPICN S^^TISFIFO ON ITE 

IRATICM NU.vSFR RESUTS ARE ^S FOLLOWS FC^ CnoVEPGEOCE 

2EFSILON = 

C WRITE CLT RESULTS 

C GCTC 131C 

C 

C CHAfJGE OMITS QF VELOCITY TC ^J/SEC 

C 

IIG^ CC 600 I = 1 ,N^ 

UVEL( I) = UV*L (I )/12.CD 
VVt’L ( I J = vv:i ( I J / 12.^0 
TVEL ( I ) = TV-L ( I) / 12.00 
TWEL ( I ) = TW*:i (I ) /12. SO 
ALP (II = Ai F ( I ) ^ 57, 2 - 576 
WRL ( I ) ^ »nRL ( ! ) / ):10 

?«=(!) = ^^il) ^ 57.20570 

F(I) ^ F(I) / (GC^IAA.OOC-'^ TU) 

HS(I) = HS( I) / (GC-l''i4.QC0^8TU) 

^OC CCNTIMUE 

WP HE ITE , 1 1C- ) 

lies fcfv^t( mm 

WR ITE(MWF ,1 IIC) 

1110 FCR'^AT(» «,/////• I7X, 'FIMT^E ELE’H\’T pfslLTSM///, 

1 • NCOS • t fX ,» PS I { I ) • • lOX, • VZ» ,l ’X, • VR M i2X , (I ) • ,10X, *OEMS I T\ • / ) 

C ^ 1. 

CC 1122 I = l•^^: 

WR ITC( MWF ITc tl 120 ) ( I ,PSI ( I) ,UVEL( I ) , VVEL ( n,PC ( I) ,PFC ( I) ) 
IF(I.cO.NN) SuTp 1124 
IC = I 

CC = FLCPT(IC) /4C. 

IF(C.NE.CC) GCTC 1123 
C C + 1. 

WF ITEINM*? IT= ,1C53 ) 

WR ITZCMURITE Mile ) 

GC^n 1122 

1124 WR nr^C MWP ITE ,1C53 I 
1123 CCNTM'JE 
1122 CCMIOUE 

1120 FC‘^MAT( • MI 3 t2X,C 12.6, 2X, 013. 6,2 XtO 13. 6,2 X, 01 3.6,2 XtC 13. 6) 

1111 WF ITE (\aRHE , 1 12 1 ) 

1121 FCt<VAT ( • M* NCCE M3X ,« WRL ( I) M lOX ,• HT M13X , MT M 12X, M UXMhS M 
C = 1. 

CC 1322 I = 1,NN 

ITE( J WF ITE , I3CC ) ( I ,.nPL ( ! ) ,H( I ) ,TVEl ( I ) ,T/^EL ( I ) , HS ( I ) ) 

13 CO FrRM:i.T ( I MI 3 ,2X ,ri3 . h , 2X,0 12. M 2w. 0 13, 6 , 2 <,013 . b ,2X ,013. 6 ) 
IF(I,:C.^^) CCTC 132t 
IC = I 

CC = FLCAT(IC) /4G. 

IF(C.f;c.CC) MTC 1323 
C = C f ], 

WR ITE( OWF ITE , 1CS3 ) 

^F I TL- ( O’M IT' , 1 U i ) 

GCTP 1322 

1224 WR (MV F ITE , ICr ^ ) 

1C 33 FC^YAT ( MM 

13 23 CCN'^^'TIE 
1322 CC^T^•Uc 

WR ITK M VF I TE , I 4?1 ) 

14 21 FCP‘>rT ( • M» ‘ M^^X , MEN^PM 11 Xf M^OT M 1 IX, ESSMllX , 

1 • FTOTf M IX M 

C ^ 1. 

CC 1422 I = 1,AN 

VP nr ( :iVF ITE , 1400 )( MTEfM ( I ) , T TOT (!) ,op ESS ( I) , ^ T.JT ( I ) , RHOTT ( I ) ) 
14C0 FCP^AT ( « MI i , 2X Ml 3. 0,2 X, 013. 6 ,2X, J 13.6 ,2X,. 013. 6 ,2X ,0n. 5 J 
IF(I.FO.rN) CCTC 1424 
IC = I 

CC = FLCATd C) /4C. 

IF(C.ME.CC) GCT^ 1423 
C = 0 > 1 . 

WR ITE( MWF ITE , 1C53 ) 
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I 

i 



FILE: TLPBO 



FCR^P 4 N M 



NAVAL PCSTGPA0LAT5 SCHODL 



SR ITE( NUP ITE ) 

GC7G 

1A2A WP I Tr ,1 C53 ) 

lA2i CCNTKJU^ 

1A22 CCNTIf:Ur 

WPITf ITE, 1 :0) 

lie FfR-i^l(2X,* ALPHA*, 2Xt* 3ETA*//) 

cc 100 I = I ,Nr 

WRI TE (NaR I^E , ! 20 ) I ,ALP( I ) , 6E( n 
12C PHRVM ( 15 ,2Flii.6 ) 

ICC CCNTINUE 
1310 R6TUFN 
ENC 



C 

c 

c 

c 

c 



c 

c 

c 

c 

c 

c 

c 



SLPPCoTTNE OUCT(P:*P-OII,PCI2,Tl,^’l,"n , ? T 1 , p y I , H 1 ,H G 1 , 
2FhCl,ALFl ,AL P2 •rPSTP:,C!^SIZZ, ISTA1,T2,TT:,P2,PT2,PH'"2,PHGTZ, 

3 1 fV.'-'P , ^ ) ,N ^ NE'V ,,\rVCV^S ) 

444444444 -*»-+ + -» + 4 f ‘ r ', 4 + + +'*'+ f 4 ' 4 '++> + -»'^-++ 4 -+ 4 ‘-*'’ fr *4 + ++'*'+ f * f 4 ' f 4 '+ 4 ' 4 -- l > + 4 f + 4 - 4 »++ + f - f 4 .-»- 
44444444- + 4 4444444 + + 44444+4+44444 44 + 44+4+444+4 + 4+ + 444+4 + 44+4+44444444 
4 4 4 4 

44 4 4 

444 ♦ + ^444 + 4 4^444+444 4444 444444444+444 44+ 4 + + ‘»-4+ + + 4444 + 4444 + 4444^ 4444 + 
•4 44 4 + + 44 4++444+4+4+ + 444+4444444 44 + 44+4 + 44444444444 4 + 4444 + +4444 



INFLICIT ^EAL<E(^^-h,P-Z) 

iNTEGER’i'-A N^ - i C , ^ ^ I , I C,NN‘CC ,N‘34 , M N EA , N’PCJS , L IMP , L IM ! 

/NCP.JNT/ C.:i t^CCLl ,NN,NE 
1 , ^ r F , N E C , N*.’ P C 

CCP’-’Cf4 / FCl^ / P- ,G,CP , PT ,T^ , VG , PHry , PHCST A, 

1 L I N L FT , u CLLE T , P P ’ I , Tu , F 2 T 2 , F I I 1 , or 
CC^vG.^ /^^.C•J^y / ^ FCw ,KK 



c 

c 

c 

C BEGIN vrn MD NODE CF FIRST ELEMENT ANC THEN CYCLE 

C THkCLGh EACH ELEMENT. 

C V^F ITE( 6 , 556) 

IF( ISTA1.EC. 1) GCTO 300 
IT = 0 

Ci'l = G • 1. IOC 
evil = l.COO / 1 

6P51 = 1 .GC-c 

HFC2 = PFCl 

= (CSC^T (EPS1F2-GPGIR2>GFSIZZ^0P SIZ2) ) - 144. OCO / 

1 ( ^ 12 / 12 .20 ) 

ICC ALF2 = C;TAM((PCI1 ^ v-vi n^AN(AL^l)) / (^CIP - VMZ)) 

T2 = T^l - 0*^1 - ( l.OC 4 (OTA.\{ Al^'^2) )*-2) ) / (2.00 

1 C - RG CC 

F2 = c>Tl ^ i ^2 'U =!--(G-G'ni ) 

RFCZ = (F2 - lAA.cO) / ( ^G - 12) 

Vi'-'ZN = ( rS^CT ( ^uc r, 2 vi)PG i'-^Z + CPE IZ2-0PS IZ2 ) ) 144. CHC / 

1 ( 12 / 12. JC) 

CIFFl = C/^EG(V>2 - V"2\) 

IF(OlF'=l.LT.cPSl) GC^O 350 
V^2 = VY2N 
I T = I T 4 1 

IF ( IT.GT . ICO ) GCTC 2C0 
GCTC lOG 

20 C RITE (5,2:5) 

205 FCF^AT(* CCNvrcGGNCE NC^ PEACHED IN 20 I TERAT I -NS , DUCT * / ) 

35C rCNTI^’UE 

RV^CmZ = VV2N-VrZN-( l.OOO > ( D T { ^L F2 ) ) - - 2 ) / ( G^RG ^GC'^T 2« 1 A 4 . C ) 
CL’ANT = l.CCiO + ( G'M/?_.O0) -R^^ACHZ 
F12 = Dll 
712 = Til 

RFCT2 = (PT2 ^ lAA.CC) / ( RG ^ TT2) 

3CC CCMINUF 
RclUFN 
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file: Tt?ec 



FCRTP^^ A1 NAV;iL FCST^^ADCATE SCHOOL 



C 

c 

c 



ENC 



SLPf^CJT INE R'“TC(P'CI 1 ,Vn •dETAI .BETA? , 

ICEV ,rc I : ,PH01 • FHC E. T \ ,TT1 , ,PT1 , AL? 1, PHCT^_ , RHOT2 ,E:iT,OPSIR 2 , 
2CPSIZ?,CFAr,ALF?fPIfPT2,T2fTT2f TJVEO • v/^2 ^kPASS •.NNCG ,r.EA,u\‘£A, 
2NPCWS ) 

+ + + 4 + 44 1+444.444.4.4444*4444444 4+ 44 + 

4-f+ + ++ -f^-*-+ + -f-H“ + 4*++ + > + 4' + +f'»'+++-f<- + ++++*f-l-+ + +-»*4^ + + + *- + 4‘ + >+ f+> + 4«^+4' + +>-f^ + + 
4+ 4 - 4 - 

+ -f 4 + 

. .+ + + + 444 f 4 + 44 -+ 444 >+f 44 + 44 + 444 - 44 ^ 444444444444444444444444444444.4 

IMPLICIT i;=AI.^E( A-H,o-Z) 

IMPGf^R^^ ::REaC,\AR ITE, rC,.'iNCD • ^E NEh, .NROWS* L I MR , i. IM I 
ccr^Mc*''j /^ccu^^/ ^CCL f.’^icriLi f^^f NE 
1 ,NNc, « ,:. M\6C 

CC^^r',’ / FC'' V , C, CP *PT ,tt , nC t^orr, FHCItRHOST i , 

IL IMET , LCLLE T .P il I • B*rL ,F?!7 *F1 1 1 , SC 
CC^^'^V /NCQJ\’T/ MkOa ,KK 



FIND HPELfARLfANO TWEL AT LCC NODES 3 t t 5 ( PC TOR ) . 



FCT12 
PCI I? 
PC IIA 
PC 115 
RC 116 
PC 117 
PC IIP 
R C 1 1 9 
e E T A 1 
eEii = 



FCIl 
PC 11 
RC II 
FCIl 
FCIl 
PC II 
RC 11 
CC 1 1 



PC 11 
C 1 1 2 

“i 



F ^ I i 
P C II A 

O - T 1 C 

P C 1 1 6 
PC 117 
PC I it 
CATANCUG ^CIl/ 
BEl/.l / 57.2957c 



VMl ) ^ 57,29573 



W I - 1 / ICC 5 ( ^ 1 ) 

PCCM3 = 2,.nj ^ CF - GC 3T'J 

IRi = T1 + / (2CCN3 IAA,003) 

Rv^CHR = CC >|r T ( ( VM ' i^*( l.DC ^ □ T AN ( B ET I ) ^ QT AM ( 3 E T 1) ) ) > 
1 (G*GC‘'^FC-'^P 1 ^-' IAh .do ) ) 

PKAPPA = 39.656E + C,u6<=ll61 PC 1 1 2 - 7.BQ6611D-13 ^ ^C! 

1 ^.Cj'5r;EC-ll ^ PCI 19 - 0, 121315 ^ nsiM(9CIl) >• 

2 3.920C5C-A ^:T;^^r<T:l) 

TCVC = G.lEA^cI - 3.5-.926U-3 RCIl - C.56D16D-5 ^ PCI12 

1 + S.391CAC-12 =^: 0CI 17 -7.303‘^lC-7 *5= DCOS(PCII) - 

2 9,255 2 3C-=^ - C S I N ( 9 f I I ) 

SIG = 7.C^c 7 3 4 1.2 2 ^513-3 -PCII2 ^ I.AaRo-^D-B ^ ^C M ^ 



1 - 
2 + 



1.3-ef5C-3 - 



q C 



C il 



CCJCC.CIl) - 7 V ^SIKPCIl) 

3-5 CTa..('CI1) - ^.13-M 4, jLCU^rii) 

-* ^ PCI'A > 2.^7'=70-il - RCIIP 

jCCS(PCII) - M.3-7AI) ^ CSIMirCIl) > 

'■ ' - 9 5. 700:3 ^ CLOG (PC II ) 



1 C . 5 ^ 1 - C 7 

2 G.C2776 12 - CT/*A( Kf I I) 

TCVC2 = ICVC ^ T^^JC 
TC\C? = ICVC ^ 



i L 

± 



PETA12 = EETaI 
EETAIB = PETAL 
3ETAIA = 3ETA1 
8ETAI5 = EEfAl ^ 

EE7A16 ^ 3FTA1 
S IC2 = S IG A' 3 ir, 

S ICE = S IC E IG2 
RPASS = ( P/AXI - pr 1 1) 



^C2 
fc E A 1 
F'^T U2 
PE TA13 
°3TA lA 
c E T A 1 5 



/ (RMAXl - RM INI) 



RPASS2 = KPA9S '■? PPA.ES 
RINCC = tETM - ^ KAPPA 

pkieh = c.Tonc 

PKIT = lE.C-'CVC - 7E.C6*^0VC2 > 139. 

PITF-^' = SIC (0.0;--<^3tTAl - 2.33 73-1 



SLCPEM = -C. 
1-S IG ) ) *D ET*.l-2 
RI2D = RKiGiM - 
EXFC 1 = 2. 709A 



I-'" ( 2. 3 - ; IS I 

.1-^1* '-t-- 

i- K I T PIT - N + 
- 1. 1 3 7 5--^ ASS 



o* jr *;r3 
rE TAL6 ) 



G. 302 2-4^(1. - - SIGI-'CSCP^ (DABS (1.8 



1 .0/ ( M G-SI S ) )'-SIE TA 13 
Sl..>^'’rN PHI 
+ 0.43 TS'^J-RPASEZ 
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» 



I?'.. 

■Jfr 




FUE: TLPBQ 



FCRTF^^ A1 NAV4L PC STGP \ D b A TE SCHOOL 



EXPC2 = M1.0B23 - C-'^44^PPASS > L. 5 £ SS2 ) Z'? ACH P ) X PCI 

PICIFP ^ -2.R ^ :,55'>^PASS (5.275 + 7.5^RPASS - 2.5 ^ RPiSSZ) 

1 * .RMAChP=^-EXPC^ 

R IPEF = F !20 + R ICIF^ 

FKCELS = C.70CC 

RKCEIT = 4.oo7’»Tr^C > 2A.^5^TC\/C2 

CEITEO = (-O.OCl.'S J.0257^SIG f 0. CC Cl 4A- SI S 2 ) - T A 1 + 

1 (1.511-4 - - SIG - 3.102C-V * S I G2 ) - i = A 1 2 + 

2 (-2.07C 7.243 v SIS > 3.621 SI G 2 ) *1 . 3E ^ A 1 3 

SLCFCM = C.2 5 + 7 .06C-4 BETA 1 - 1.2'*^6l-3 B-TA12 > 3.1080-7 ^ 

1 BETA13 

ACCN = 2.35 - C.C124 * BETAl - C.JOOC^eA ^ 

BCCN = C.C070 - C.00073R * BF'Al 1.361-5 B-t'A12 

CCELOI = C3X^( -ATI l^cTO) + ( f C CN/ 3 T 2 ) ( OS I N ( 3 . 1 4 1 5 03 -'S I G / 

2 { 1.2-57.2^578 ) ) )=t^2 

e = 0.066 - 0.2030= « DETAl + 6.1150-5 * BrTA12 - 1.47P3D-6 ^ 

1 EETA13 

CEL20 = FKCElS ^ F<CELT QELT EN' + ( SLCPEM / ( SI G Q ) ) « PHI + 

1 R I C I F F 4 no E L L I 

ACCN2 = -1.75 + 2. SURPASS -i- PPASS--6.53 

0CCH2 = C.21 - 5.5=«?PASS 31.^4 4: PPASSZ - 5 7. 24^P P A S ? A 5S2 

1 4 35.15 ^ RP355 2 - hP^SS2 
CCCN - 5.43 55.6 - (R^ASS - C.535)**2 

CELOIF ^ ACJi\2 FCC\'2 ^ R ACH R 0 \‘ 

CELROr = CEL 20 CSlCIF 

CEV = CELPFF 4 (RIRCO - R I RE F ) *00 3L0 I 

EETA2 = EETAl - 2^1 . PINCO + CEV 

EPS = l.CC-6 

IT = 1 

EETAl = EcTAl / 57.20573 

eE*JA2 = E^TA2 / 57. 33573 

REAP = ( FC II 4 kC 12 )/2.0CG 
G.'^l = G - l.CO 
GVII = I.OC / G'^1 
PFC2 = PFCl-^O. 75 

V^^2 = tCS0;<T(t:FSIF2*.:PSlP7>CFS IZ2-10SIZ2 ) ) 4: 144 .000 / 

1 C^FC2=^P2^RCI2/1 '.02) 

60C ALF2 = C/T AH ( ( kC 12 - V V2 ^ CT AH ( ^ A 2 ) ) / V^Z ) 

OFAC = 1 - ( VHZ-rCiJ S (dET ) ) /( 'vRl -1C CS (5 CT A2 ) ) 4 ( { li^O’AH ( BET A 1 ) 4 

1 RCIl - \.P?4cOT AH ( . 2 )4:kc I 2) -CC^ S( 5 ETAi ) ) /( 2. 02”S IG4Vvi^Pt3 Ah ) 

c^zcr = :fac"-c'=ac 

CFAC3 = CFAC2 ^ CFAC 

CFAC5 ^ CF6C2 < CFAC3 

TC.^^EGl r (0. OCCI-OF'^ 4 - 0 . 0 30 42 37- OF A C - 0 . 33 3 -4 7:j: 2F AC 4 
1 C. 555icc-^rjc: *.f 2 - 0. 6027^c^lFU 5 ) ( 2 .0 00-S IG/ OCr c { □ rj ^2 ) ) 

TCVEG3 = (C. j::12C-p 4 O.L’^IOZ 10*-lf^AC - C.I00^7"70 c^,q2 4 . 

1 0 .22'^S 7 :C3 - 0 . C - 3 3 R2 5* CF AC5 ) * ( 2 .OHO^-'S I G/ QC'^ S ( E2 7 A 2 ) ) 

TCIFr = (Tr'^TGl - TZ^^G2) 

IF (PPASS *G3. 2 . 30 ) GCTC 100 
IF(c>PA33 .LE. c. 10) ilO 

TCPEG = 1CVEG3 4 (^z^cGl - TCMEG3) 7 ( ( 0 . 3-R P A S S ) /O . 20 ) --2 
GCTC 120 

lie TC^'^EG = 7CP3G1 

GCTP 12 c 

ICC TOEG = 10EG3 

12 c TEl = - (PCI2*^CI2 - ^CIl^RCIl) / (BCC\3 ^ 144.000) 

FF^ = PTl 4- (T Fl/TTl )-4:{ G-SMI I ) 

PRl = DTI - ( Thi/lTl )-'^-(G”GM2 I ) 

PE2 = °E1 - ^C‘'EG4(p?t - c>i) 

a 2 = v ‘^2 / orc5 1 ee^a: ) 

T3 = TEl - WZ^yP / ( -CCH3 - L^^.OCO) 

P2 = PE: 4 ( 12 / Tei)^=4:(G'^-G'MI ) 

PHC2 = { P2^ 1 .2v' ) / (Of, TZ) 

Vf^2N = (CSOP'"(CPnr24-.)P^i;^24-CPSIZZiOPSIZ2) ) * 144.0CC / 

1 ( FFCE^'-CZ^r^c 12/12.00) 

CTcST = CAPS(V^2 - V>2H) 

IT = IT 4 1 

IF (CTEST .LT. EPS) GGTC 700 
\t^2 - VP2‘N 

IF ( IT.L T . 1C7 ) GCTC 6C0 
WFITP(6,65C) 

65C FCF1AT( • CCNVl^G:-j\CE HCT REACHED IN 20 I T E RAT I OH S • / ) 
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FILE: TUKQO 



fC?slRfi> M N.;v<M PC$TG?^OLATE SCHOOL 



ICC CC^TIHHE 

-ViCP2 = ( l.COC ^ (DTA:j(AL P2) )=<==<=2)/(0^‘-iGi^0C=^T2-l^‘^.CCC) 

CL^^T = l.COC (G/.I/?.00)*^RyACH2 
PT2 = P2 « OLANT^MG'-^o;^!!) 

TT2 = 12 ^ QIJAM 

PhCT? = (PT2 I'^A.CO / (PG « tt2) 

EM ^ -PC*CL^G (PTZ/PTl) ^ GC ^ 14'^ 3CC 
RETURN 
6^C 
C 

c 

c 

c 

SLEPOLIT irE STAT(kCT 1 fVMltPETAl ,RPTA2 f - PAC HR t P.‘^ A X 1 ,R^INl , 

ICEV I 2 iRHOl • FHC 2 t , III , P! , P Tl , ;i P I , rHCTl » -M-PT2 , P t EOT tOPSIRZ , 
2GP Z2 t CF ACf AL P2 »P? f P”^2 t T2 ,TT2 f TJ'^TG ,Vr^2 tP’^AS^ ,MLCO ,r t K,’E4, 
ENRC.^S ) 

f^>*f-f-f4++++ + 4fX'^>4++4 + t4^>>>+»-f4++++f4'>--*^44f>+4--»*+^-4'f + f + 4 + f+ >+ + ff + 4*> 

44 44 

4+ 4 4> 

4444444444 + 4444+444444 + -M- + 444+^ + 444444+444 4+ + 4+ + 4>444-44+44444444+444 
44444444 + 444444+4444 44444+444+4 + 44 444 + 444 + 4+4+4 + ++++++ + 

IXPLICIT RPAL«E< A-H,P-Z) 

INTrcpc:^4 -iC f' A~ ITE. I CtNNCn NNF^, NROOSf L I -^P , L IMI 

/^C^'J..T/ LCUL •NC'"L1 t\N, ^6 
1 f^^E,N^PC f\0" BT 

/fcr* / PC.C. C'^tPT.TT.VGfWOC'T, FHCTfPHJSTA, 

IL IM.IT, lCLLE T tPEI I .='T‘U tPZi2 tFl II tGC 
CCf'.'^OL* />CC 0 r;T/ '-'nP’.n r^RGwitKK 



RCIL2 = 
RCI13 = 
RCI14 = 
RCIL3 ^ 
RCILfe = 
PC1L7 = 
PCIL? = 
PC I l<= ^ 

'a 1 = V 1 

eccN^ = 



FIN'D Hr EL fARL, AND TWEL AT I.CC NCOES 3 , 4 , S ( PCTQR ) . 

FCIL * FClI 
PC li ^ PC 112 
P C I L * F C I L 3 
?CT1 * FCI14 
ecu ^ PC I 15 
RCll 4 PriL/S 
PC II - PC II 7 
PC II ^ PC I la 
/ OCCS (FETAl ) 

2.CDC LF - GC ^ BTU 



P,v:CMP = DC *^ ( { a . DC 

1 (C’^nc^^C-T 1 ^ 144 .C 2 ) \ 

FK^PP^ = F4,l- 522 - l.P434n *5 c 1 1 ^ 1.63514D-S 

1 - .174C36 ^ DCFS(r.ril) + . 431 45 - OSIN(^CIl) 

TCVC = G,C180C=^ 4 :.?i:57Q-3 ^ FC!1 ^ l.c')0^60-S FCI12 - 



DTAN (FE*"A I ):i=DT AN' (Bt^Al) ) ) / 

PCI17 



OSIMRCIl) + 3.C4003D-7 ^ 



17.6R';‘^‘?r-5 ^ DCGE(ECII) 4.c32150-5 

2 ltao( pc m 

ciC = 4.77577 - C. 350^57 =5^ PCIl ^ '^.454420-3 "CI12 - 

1 5 . 52663i>13"'PC I I'- - 1. 3 1 lfa40-3 ^ OSPl ( Rf 1 1 ) - 1 . 72 7r.G C-570T AN ( c C I I ) 

FFI = 145.583 * 1 . 1 1 1 7 <=n- 10 * ^Cm - .923535 7 OCnc(Rcii) + 

1 1 . 523c5 ^DSIO( Pr : i) .. .02 ^42 77 CTAM R C I i ) - 45 . 774 3 7 :lCG ( R C 1 1 > 

TCVC2 ^ TCVC 7 Trve 
TCVC3 - Tfve 7 rrvc2 
BETAl = F3TA1 7 57.29578 
= BET U 7 E-IAl 

= d-TM ::: eETAl2 



t ETA12 
BE TA13 
beta 14 
eF 7 .H 5 
eETAlb 
SIC2 = 
SIC3 ^ 
PPASS = 



= p 



L i 



a 7 eETAi: 



= PFTAl 7 0 = 1^14 
= PFTAl 7 PETA15 
S IG 7 s IG 
5 1 C 7 s 1 G 2 
(RMAXl - PCI!) / 

RFASS 2 = PPASS 7 RPASS 
PINCD ^ EETAI - PKAPFA 
RKTSH = C. 700 C 

PKIT 13 .C 71 CVC - 79 . 067 TnvC 2 + L 39 .^=-invC 3 



(FMAXl - RMTM) 



RITEN = 5IG 



SLCPEN = -C. 02^7(2 



(O.C37nETAl - 2. 3370-1 2^‘:^ETA18 > 



; . c « c T r. 



SIG ) 



C. C022647f 1, ^ 



SIG) 7f)CCRT(CA6S (1.3 
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I 

i 



FILE: TLFBC 



FCkTP>3N KiVAL FCST‘;^Ar)UATE SOiODL 



l-S IG ) ) ^iHTA1-2 . ! ^ / j:. ^3- I . 0 / (S r G^FIG) ) TA 13 

FI20 = r.KiSH - .-KIT t t slopfn pfi 

F>FC1 = 2.7JC;/:, - 1 . 13 7 \ S S + 0 . 4 3 7 5^* P p 4 3S2 

EXFC2 = ((1.JP22 - (}. 3444r::p4SS ^ i . 5 £ ? -'■" P S S 2 ) /P AC1'» ?? ) X PO 1 

RICIFF = -2.P + (5.27^> 4 7.5''>P.PAGS - 2.5 ^ PPAS52) 

1 ^ P^‘ACFF<=-E XPC2 
PIRFr = FIZ2 4 PICIFF 
PKCELS = C.7CCC 

PKCEL'^ - 4.6£7<T^VC > 24 . 4 E’?' Tf VC 2 

CEITFN = {-0.0C1^3 4- 3,02 37^*SIC 0 . C30 1 ^ 4-^ I 3 2 ) HE t A I 4- 

1 (1.5n-^ - ^.53C-4 SIG - 3. 1023-4 3 I G2 ) E ^ 4 1 2 + 

2 (-2.07C + 7.0^3 ^ 5IG 4 . 3.621 ^ S I G 2 ) n . 00 - 0 ^ T A 1 3 

SLCFC-H = C.23 4 7.060-4 ^ HETAl - 1.2o60-3 - [»2rA12 4 -5.103D-7 « 

1 0ETU3 

ACC.\ = 3.35 - C.C124 ^ BETAl - O.COOC‘'-e4 ^ B'=TA12 

ECFN = C.CC70 - C.CC07GB HE'^Al 4 1.360-5 4FTA12 

CC6LPI = 0:X’^( -ACCN’^i^SIG) 4 { EC 00/ 3 1 G 2 ) ^ ( 0 3 1 N ( 3 . 14 1 5 F 3^2 I G / 

2 { 1.2-'^7 .2^5^5 ) ) 

■d = C.F66 - L.C03CH BETU 4 6.1-50-5 ^ BET 112 - 1.473S0-6 ^ 

1 EETA13 

CFlzn = RKCEL5 ^ ckoELT ^ HELTEN 4 { 5 LOP E.’l / { S I G- ) ) >> PHI + 

1 RICIFF 00 : lei 

ACCN2 - -1.75 4 2. SURPASS 4 PP ASS 6 . 5 E 

ECCN2 = C.2- - 5.55^PPASS 4 31.84 ^ RPASS2 - 5 7 . 2 -P A SS-t P A S S 2 
1 4- 35.15 - RPA5^2 - «^^ASS2 
CCCN = 5 .43 4 55.6 - C.52^)^^2 

CcLOIF = AfOr.2 + RCCN^ - c' ’OCh R^^CCON 
CELPcF X CELZO 4 CELCIF 
CFV = DElFf^F 4 (-i;>iCC - RPEFI^COFLOI 
HE7A2 = FtTAl • Phi - RINCl + LEV 
PE AR = { RC II 4 RC 12 ) /2.000 

FFS = l.CC-6 

n = 1 

eS^Al = EETAl / 57.25579 
EETA2 ^ £FTA2 / 57.2S579 
Gi^l ^ G - l.OC 
1 I = 1 .CO / GMl 
PFC2 = PECl 
TT2 = m 

VI = 0SCFT{V'M’^V''1«( 1.000 4 CT AMf 3PT Al)'4rfjTArJ{G^TAl) ) ) 

W2 = ( 0 50PT PS 1 r3^^0PS:R2 4CFS IZ2-P^S 122 ) ) - 144. QCO / 

1 ( RFC ?=^2^P F I 2 /13 ,DC) 

cOC V2 = OSCRT (V*-'2^V’-Z'^= { ^ .000 + CT A V { or r A 2 ) ^0 T A!3 ( 3 E T A 2 ) ) ) 

CFAC = 1 - V^/U 4 { V-»I42TAL- ( P -TII I * or 11 

1 - V'^2^CTA0 { a E'^A 2 ) - 'C I 2 ) / { 2 .OC-S IG- Vl^'-P B AR) 

TCNFG = (C.003 120'=-^ ‘ ).j 21 )21C^44*C - 0 . 100^7 6-OF If 2 4 

1 C.2233 3 £ ^.C3 - 0. C- 38 02 5*0r ;C5 ) •« ( 2. ) OO^S I G/ C CC S ( E ET A2 M 

PT 2 = I - ( PT 1 - PI) 

T2 = ’Tl - 3*n - ( V v'^-VM2^M 1 .CC 4 ( 3 T ( AL P2 ) ) - - Z ) ) / (2.00 ^ 

1 G * RG X SC 14 4.0^0) 

F2 ^ PT? ^ (T2 / IT 1 )-^{ G^GMI ) 

PhC2 = { PZ-l-^4 .c: ) / (RG - T2) 

V^'2^ = ( esc; T( I0 2-"^i.PR U240P SIZ2^*0PS IZ2) ) 144.000 / 

1 { RFC?^ 52-^RC 12/12 .00 ) 

CTEST = CAbS( VV? - Vr^ZN) 

IT = IT H 1 

IF{0TE5T,LT.?FS) GCTC 700 
V/^^2 = 

IP (IT.LT .ICO ) GGir 600 
V.PITr{6t£5C) 

65C FCF.vaK * CC4VEPGFKCE nZ^ REACp^EC IL' 2C ITERATIPNSV) 

7CC RNACH2 = V'^ZN^vy-^r.-J: ( 1.0CJ4 {CTa,A (HET A2 ) )-=«Z ) / ( G^p G^GC =^T2-1 44 .OOC ) 

CL/N'T = l.CDC 4 (G-n/3. )0 )TQwach2 
FFCTZ - (PT2 ^ 1-4. PC) / (PG ^ TT2) 

FM = -RC^i'CLCG { PT2/ FTl ) => GC - 144. OCO 

RETURN 

ENC 



SUFFCUT UE RCATA (ZA . FA ,w ELX, KK, LI‘11 tL IHP a I M4) 

■444444444*4++4-»'4-».^.>+4'4+-**4' + 4'444^-4'444++++-».-»-44'44444444'-».4- 



♦ 4+ +4 + 



200 



file: TUPBO 



FCRTP^N NAVAL FCSTSPAOU^TE SCHOOL 



C 

c 

c 






4 + 
4f 



+ + 
■f + 

-l»-ff++ + +'»- + + 44+4f fff 



IMPLICIT REAL*6( i-H,P-Z) 

[T^f ICfNMCD mNE 4» ‘)^^OWSt L INR ,LIMI 

/ fcc ^/ Po rr ,tt , jc"* , phct ,^hcst a, 

lu INLET , UCLLET ,PS n tr^TU.F 21 2, FI I I,GC 
CCN.^CN /lie/ N PE;C IT E 
CINENSICN ZA (S ) ,£A( S) ,W( 9) 



NFEAO = E 
NWPITE = e 
PELX = C.24C0C0 



INITIALIZE stream FUNCTION ITE^^A'^ICN CCUNTER 
CR REH^^^a ANC INTEG£R«2 STORAGE 

KK = 0 

LINP = 5^CCO 
LTM = 2CCC 
LIN 4 = fee 

iHRcE-'PClNT GALSSIAN AESCISSAS 



:o 3 



-KK* SET SIZ[ 



Z21 = C 


• 7745'6E6‘^2'^ 


112 ^ C 


. CCCOCCCCCCO 


ZA ( 1 ) = 


221 


ZA(?) ^ 


2Z1 


ZA(3) = 


Z7 1 


ZA(A) = 


2Z2 


ZA(5) = 


212 


ZA(6) = 


112 


ZA (7) = 


-III 


Z A < a ) = 


-UA 


ZA(9) = 


-III 


6A (I) = 


111 


EA(2) = 


272 


EA{3) = 


-221 


E A (4) = 


2 21 


EA(5) = 


2Z2 


EA (6) = 


-221 


EA(7) = 


221 


EA ( 8 ) = 


ZZ? 


EA (9 ) = 


-Z2I 


We IGFTIUC VALLE 


UWl = 0 


. f 555f 5f 5 f f3 


h U 2 = 0 


. ^c3a£-EM‘E8 


nil) = 


V* V I ^ f w 1 


V. (2 ) ^ 


V V 2 <=w ^ 1 


Vs ( 3 ) ^ 


V V 


W(A) = 


U V 2 ^ w 1 


W(f) = 


U V2-W a2 


Vs ( E ) = 


R V 2 ^ U 1 


Vs ( 7 ) = 


A V» I ^ '.'4 V< 1 


1 E i - 


V 1 


Vs( M = 


> V 1 



PT. GA035 IAN CJAO-ATUPE 






CCNSTANTS LSEC UMTS CCNVCPSIGUS 

ETL = 776, 20C 

Fin = 1 2 . CO 0 

F2 12 = nA.OOC 

F3 13 = Fill ^212 

GC = 32. 17AOC 

RETUPrj 

6NC 
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c 

c 

c 

c 

c 

c 



ICC 



c 

c 

c 



IOC 



c 

c 

c 



ICC 



SLRRCU^ INC 1 (N£XC") 

NEXC? = -N=XCP 
VP ITE( t) , ] CCI NEXCh 

FCP'^AK* SXCEcCEC ‘-lAXiyU*^ ALLOWABLE S^ACE FOR REAL-^^ V^kIAELES 8Y 

1 • , no// ) 

STCP 

ENC 



SLEROUTlNc EFR2(NEXCI) 

N8XCI = -NEXCI 
WP ITC(6 , ICO) NEXC I 

FCPMAT(* 8XCEECEC MAXl.'^UM ALLOWABLE S^ACE FOR VARIABLES BY 

1, I 10// ) 

STCP 

ENC 



SLRPCUTINE ERP2(NEXCA) 
N6XC4 = -NEXC4 
VRIT-( 6 ,1CC) NExr^ 
FrpMAT{# ::xCEECEC ^AXIVUY 



!• ,110/ / ) 
STCP 
ENC 



allowable 



SPACE FPR REAL^R VARIABLES 0Y 



c 

C 

c 



c 

c 

c 

c 

c 

c 

C 

c 

C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

C 

c 

c 



SLEPrUT INE MPLCT (r<C tK'^AX tPMlM, VZ,CVEL ,CRC tPBE, GA L P ♦ N PC TOB t A LP , 
IBP ,DEV 1 tPRAT ,ETA,N\CCtCRAT,NE^triO->t.\RCWS ) 

4+4444 4444-4-444 4+4-4444 4 + 4+4444 + 44444444*.+ + + +>+ + 44 4+4- 
4 + 

4+ THIS SUnRCLTPIE CREA*"ES A TEXTRCMX 618 '^LOT 

+ + THE FCLLCWI'^L ?^--:A‘1ETEkS: 




4 + 

+ 4 
44 
44 
4 + 

4 + 

4 4 
44 
44 
4 + 

44 
4 + 

44 
4 + 

44 

444444 

+444444 



AXIAL VCLOCITY \T c R CT G F 
RELATIVE FL*;. A' RLES AT THF 
AXIAL VCLCCITY AT 
^ELAlIsrE rv A,'i',LE^ A^ 

ABSCL’JT- FL ' ^ a;OL'S AT ME 
AXIAL velocity at TmE S“\Tr>-' 



INL-'T 

PCF'-R riLET 
CIJTL ET 
ROTC" r’L-T 
■^'^TQC P.-LCT 

I':let 

%l:t 



ABSOLUTE ATOLE^ AT t^z ZJr\T^P 

AXIAL Velocity at Tm? S'ATpy GLTLE^ 

ABSCLLTE FLTy. A-iOLES AT THE ST GU'^LE^ 

ADIARATic Cr-F T C I EHCV AT THE PO TfC' TMLET 
FELATIYE Cr^VTATIui^i ANGlE \T THE ^GT*^-: OUTLET 
ABSOLLT? OEVIATIGN* ANGL‘ AT ME ZUT-LET 

STATIC P^ FIGURE PATIC TMf PPT-'^R 

STATIC PRESSURE RATIC FOR TFE STATOR 



4 4 
4 4 
4 4 
44 
4 4 
4 4 
+ 4 
4 4 
4 4 
4 4 
4 4 
4 + 
4 4 
4 4 



I^'PLICIT :?r-AL'*J'F( - -H , C-Z) t P«=AL^A{iJ) 

I N'tE'TER - 4 NR - AC ,N WR I ^E ,1 C f NNCG HNE^ ♦ N'- , L ft M I 

LCG ICAL 1 TI tl ! ( ? 7 ) , T I TL 2 ( 1 ? ) » TI 7 L 3 - ) , II TLA( 3 , T I T L E ( 3 5 ) 

LCG IC A L - 1 TI TL 6 ( ?^ ) , T I Tl_ 7 ( B 6 ) ♦ T n_- ( , TI T|. S 7 ) , T ["'L 10 ( 35 ) 

LCGICAL ’^1 "ITL 1 K 2 E) •“I"Ll 2 ( 2 -),TITLn( 27 ) ,TI^Ll-+(? 8 ) 

CC^'Vr^f /NCCJM/ \ OIL ,HCGL 1 »:;n,Nc 
1 tNre rUNPC ,n-!n.ac 

/>C( JNT/ v^iRnAl t KK 

C I NFNS I CN CPC ( 1 ) fCV EL ( 1 ) tOxrLi 4 ), ME ( 1 ), CALPI 1 ) , DRAT( 1 ) 

C I.'^ENS ICN rC ( i J ,Vii( i ) ME { I ) * ALPd 1 , 3 E\'l ( 1 ) fPRAT ( i ) , :T A ( 1 ) 



‘^PLOCO^ 

yPLOSC^ 
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c 

c 

c 

c 

c 









PLOT THE 



PCTQP TiLET VELCCITY D I STP I BUT ION 









DAT^ TIU!/':XIi( V-LICITy P?CPIL= A 't pnrrp pjLET*/ 

CATA TITLE/* ^XIAL VELOCITY PP.f^^IL^ AT ^OTqp P'JTL'T*/ 

DATA T I T L3/* AX lAl. Vf"LJCITY P^^CFIL: AT ST ‘.T^R TILET*/ 

DATA TI TL4/' -XIAI. VELCCITV PprFTLr AT STA^S^ ^^'J'LET*/ 

DATA T n 15/* ^FL AT IV E FLOW AMGL=S A^ «?nTlP INL'^T*/ 

DATA TI TL^:/* F-LA"Ivr FL'^W ANGLES PCTQc PUTL * / 

CA'ta T I Tl 7/* S''^lUT E FL<*>W AN^-LFS at P^TQP CUTLET*/ 

DATA T I T la/* AH SCI LTE FLC-s ANGLES *T STATCR INLE’’’*/ 

DATA TI TL S/* '.6 SC! LTE FLOW ANCLES S^ATCF f^O^'LET*/ 

CATA TITLlC/'Afl^cATIC ^=FPICI^^CY AT ^rjro INLET*/ 

DATA T I T L 1 1/ * O-V I :T I r\ \N';LE FCTO^ ILTLET*/ 

C-iTA T j -^L 12/ *CcV I A^ ICN ANSLE STATrr. CLTLE'^i/ 

DATA T I TL 1?/ * TfT '.L F^FSSUNE f^ATIO, xCTCf?*/ 

CATA T I TL lA/ * TCTA L P-ESSLTE t^ATIC, STATCP*/ 

WR IT^{ 5 , ICC) 

ICC FCRMAT{5>,* >HC Y CU .xISH TO ENTEP THE PLOT SEQUENCE? *./t* 
1 1 = YT S ; 2 .\P. * ,/) 

P E^C( IS , 1 ) N’ANS 
IF(NANS.EC.2) CCTC 5GO 
J = NRCTCe 
CC 30 I = ItMRCWl 
ORC ( I ) = PC ( J ) 

CVZL U ) - V7{ J ) 

CBE II) = 8E (J ) 

CALon ) ( J) 

CPAT ( I ) = PRAT U ) 

J = J + i 

3C CCNTirpJE 

NPIA - VPCUl 
CXYLd ) = -5O,CD0 

C>YL(?) ^ ^MIN 

CXYLI ? ) = 70C. CCC 
CXYLI4) = 5MAX 
CALL DS I M T 
CALL GSEFSE 

CALL PLC T { * 3NUL* ,*'1^1 A , CV =L, GRC ,CXYL , 37,T ITL I ) 

CALL PICT ( * 30UL * fr:R14, CVEL , CCC ,nXYL t3 7 tT IT l1 ) 

CALL 3STc-'^ 

VP ITE( 6,110 

lie FCkVatIE),* >CC YCJ XISH TC CONTINUE PLOT SEQUENCE? *,/,* 

1 1 ^ YES ; 2 = \C. * ,/) 

PEAni 13 , ) NA,\ 5 

IFINANP .E^ .2 ) GC"C ECU 
CALL D S I ^ n 
CAIL G3-PS^ 

CALL ^LCT ( ' 3Nr.L * • NR 1 4 , Crt E tORC t C X TL , 3 5 , T I TL - ) 

CAl L c>LlT ( • 30 v^L * ,N.x 14 ,Cn ^ , CXYL , 33, T I Tl. 5 ) 

CALL DSTE--^ 

V.R ITE{ T , ] \C) 

PEACdS ,< ) NANS 
I*' (NA::S. EC.2) CO’C 5C0 
CALL OS IN IT 
call GSEPSE 

CALL PLfT{ 3NU L * , N R 1 4 , r P A T , nc q , 0 / Y L , 27 , T T T | \2 ) 

CAl L PL CT ( * -'''‘G.N*' \;:0.tL * ,NR 14, C- AT, :^C , :XYL, 27t TI TL 13 ) 

CALL OSTE^v 
^»P ITC( 6 , no 

R£AD(15,< ) NANS 
IFINANs.se. 2) C-GTC 5C0 
CALL OSINn 
call GSEFSF 



CALL PLCn *’-*PGNNN3.NwL* ,.N?14,CALP,r0C ,fXYL,'^5,T ntlO ) 
CALL PLTH ••^M'JNNNiOWi * , N N I 4 , CA L P , CPC ,CXYL,35 ,titl1G) 



CALL OSTEFv 
WP IT^ ( 6 , 1 1C) 
READ! 1 5, < ) NANS 



IF (NANS • EC. 2 ) GCTC SCO 



203 



FIIE: 7LBBC 
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.=J+NFrw+l 
cc AC I = i,:‘‘pcui 

OPC( II = CC(JI 
GVcL( I) = V2(^l 
CB^I I I = 05 (J I 
CALP ( I ) = CEVl ( J I 
. = J ♦ 1 
AC CCNTTNUE 

CALL OS IMT 
CALL OScFSF 

CALL PLC1 ( NON'l'.L ' »MR 1 A, CV EL t CPC ,CXYL r38 .T ITL2 ) 
CALL PLCT ( '"GNNNEoWL ' .NP lAfCVEL .0‘^C ,CXYL , 38,T I TL2 ) 

call hstery 

WP 1TE( A , 1 10) 

PE AC (15. f) NANS 
IF(Na'IS.E 0.2) GCTC SCO 
CALL ns IMT 
CALL GSr-FSE 

CALL PLCT ( 'MwGnnnS-jnL' .MRIA.C*’ £ .OPC , CXYL ,36,’!Tl S ) 
CALL PLCT ( 'M‘'GNN M3UUL • .'IP. lA,Co E , C X YL , 3 S , TI TL o I 
CALL D3TEAY 
PP ITF( 6 . I 1C) 

F E AC ( 1 5 . <) NANS 
IF(NANS.SC.2 ) GOTC SCO 
CALL DS IN I’ 

CALL GSEFS- 

CALL PLC I ( ' v,vnNNN'»NVL' .N^IA ,CALP, CPC ,CXYL. OS."" ITL I 1 ) 
CALL =Ln ( ' -l-GNNN 2uwL' ,NR1A, CAL? .CRC ,CXYL .28,'^ I'^Lll ) 
CALL DSTEFv 
UP ITE( 6 , 1 1C) 

READ( 15, M 'JANS 
I? (NANS . EC. 2 ) GOTC 500 
J = J - NBC.U 
CC Al I = L, ! 

CPC( I ) = (J) 

CB£( I ) = ALF(J) 

J = J + 1 
Al CCMINIJF 

CALL OSIMT 
CALL GSEFSE 

CALL RLCT( 'w.vGNNNEN'rtL' ,NR 1 A , CH : , jPC , C x YL , T 5, T I T|. 7 ) 

CALL ’’LC'i ( ''^••'GNt.NSOUL • I A , C= E , IRC , C X YL , 3 6 , 7 I Tl. T ) 

CALL OSTE'^*' 

rPIT'( 6 , no 

peach 15 .< ) 'IAN'S 

IF (NANS . EC .2 ) GCTC 500 

J = J ^ + I 

CC 50 I = 

OFC ( r ) '^c ( J ) 

CVEL ( I) = yZf J) 

CF ;iT ( I ) = (J ) 

CBE( I ) = ALF( J) 

J = J + 1 

50 ccMnue 

C;JLL DSIMT 
CALL 

CALL PLCT ( • 3'^iWL • ».'i P 1 ^ , TV £L t O^C ,G X YL , 3'^ t T I T L 3 ) 

CALL I CT ( • y jOvyL • I - , CV 3L t CP C tCX YL » ^ 8 , T ! TL 3 ) 

CaSLL 

%F IT= (6 , 1 10) 

REiiO( 18 'u^ 5 

IF (,\Af!S . EO .2 ) GO-C 5C0 
C 4 L L OS u n 
CALL GSEFS^- 

CALL ^LC T ( * ;s • ,:JR I A tf8 C ,nqr. , C X VL , 3 ^ t T I Tl 3 ) 

C/llL ^LCT ( *M'VuNfNN 30XL* f CaE, OPCr C X YL , 3 6 , T I TL 8 ) 

C.1LL 

WF 1 10) 

PE£C(15 ) NA^S 

1F(NAj\3. El;* 2 ) GC^C 5 CO 
C^ LL OS l(N IT 
C>5LL GSCFSE 
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FILE: TLP 0 C 



FCRTPr^ NAVAL PH STvjRAO L A TE SCHPDL 



CALL PLC7 { tN’-? 14 , TR at , r?C »CXYL t 2‘7 , 7 I TL 1 A ) 

CALL PICK • INGN’^N^OWL* tN^lAfCP AT,C'<C ,7XYL,2 8tTlTLlA) 
CALL OSTEPM 
WFITE(6tllC) 

READ(15, < ) 'iANE 
IF (NANS . FC.2 ) GCTC 5C0 
J = J NPCw + I 
CC 60 I = I,YRC^1 
UPC ( I ) = ( J ) 

GVEL ( I ) = ^rfZ( J) 

CBE( I ) = ALP( J ) 

CALP (I) = CEVl (J ) 

J = J T 1 
60 CCNTIMUE 

CALL OSIMT 
CALL GSEF5F 

CALL PLCT ( ••ImGN:' : • , .NR 14 , CV tL , C® C ,CXYL , 39 1 T I "L 4 ) 

CALL PLCT( •M^G^^^30WL» tN3i;,,CV a f C^C i CXYL t 39 , T ITL4 ) 
CALL DSTF-M 
viP ITE( ^ t 1 1C) 

PEAnn^ ) NANS 
IFCNAMS.^'C.^) GCTC 5C0 
CALL OS IN IT 
CALL GSEFSC 

CALL PLCT ( »‘.»yGNNN :M 'til* ,NR 1 4 , C3 C tO^C , CXYL ,37,7 I TL9 ) 
CALL ®LCT ( ^GNNN 30 *^L * »NR 1 4 , CB E tORC , C X YL . 37 , 7 1 TL ^ ) 

call OSTEPV 
wRiTS( 6, no 
reac(13,m riANs 
IF(NANS.EC*2 ) GCTC 5C0 
CALL OSIMT 
CALL GS<=PSr 

CALL OLC 1 ( • ‘^NGNNN3iN^LM(NP 14,CALP»CRC ,CXYL»29,T ITL 12 ) 
CALL PLCT ( •'^*^GNN’N3C’-.L MNPI4, CALPt C9C I CXYLr 29.^ ML 12 ) 
CALL OSTSP.M 
50C CCNTINuE 
RETURN 
ENC 



SLEPDITINF SLlN^(^CtPS ItVZfVP, N C J E t V ^ l , Cl 1 , ^ r t 2 • A L ^ 1 1 NTS 1 MMH 1 . 
IPhC .AL^" tEl tl I t I S' A1 , 'mctt ,T':yo, rT '^T MRGSGt PTO'-Mt C'X r r ^ , 

PPhCTltHl ,rSI .OZtC^'^TP2,jPSIZ2fh.r(S,Z !,VZ ItVP.l, ZC t-NT^rp,-:NTl , 
3NNCC,NE4 N^-Cl-S ) 

+ 44 4 4 4 + + ++ + 4 4+ + + + + 4 + 4+4 + ++ 4 + 4 + + + + + ++ +4++ 4 + ++ ♦'+-4-44--»*«.-4*+4 + 4+4 + 44+4.4.^. f+4. 

+ 4 4 + 

4+ + + 

+ 4 + 44 4 4+ + 4 44 4 + +f4+4 + + +4++ + +444 + 44++ + f^++ 44.++ + + + 44 + 4-4- + +44++^+ + 4+ 4+ ++ + 

+ ++ + +'44+ + 4 + + + + ++ + + 4+ 4>+ + +4+++ + 44-+4++4+4 44+t+4 + + + ++4^- + +4 + + + f>4 + 4+ -r+ + + 

INPLIC IT PEAL^P( A-htP-Z ) 

INTEGERS 4 NRF^C,N-GITE,I C • NNCD , ^E4 ,N N E4 t NRGWS , L TIRtL IM I 

ccyyr'i /NCLorT/ ;.col .nccli tNN » ne 

1 ,NNF,.\NFC,N\‘NPC 

CCNYU:' /FlCT/ pc tG, Cf^ . fTT , wG ,xOfT , FhCT 



uu~l*u. /rui-M/ ?. ■ »nL:fAU' ( 

1 UIMEt,lCLL: MPM I MT'J,F 2 I 2 ,F 1 I! ,GC 
CONCN /NCC’J^ ■r/ P 3 I , KK 

CiyPNSMN ( 1 ) 1 ) , ?1 ( 3) t :f ( 31 t-f- 



■ , RHCE 



c lyPNS 

C lYENS IfN 
c I I r N 
DiyENSICN 
CI>ENSICN 
CIFENS ICN 



c ( 1 ) fPMOT^ ( 1 ) ( 1 ) , ttct { 1 ) 
VZ ( 1 ) ,VL( 1 ) , ( I ) t7.>cL ( 1 ) rPRE SS( 1 1 , T : T( I ) ,‘M 1) 

PS I ( n • AL M 1 ) , J - ( 1 ) • h I 1 ), HS ( 1) t Zl ( ^ ) ( 3 ) t Ei B ( 1 ) 

PC i ( E) tZG 3 (3 I , P JAC (2 tZ ) t 3Z (1 ) • OR ( 3 ) , OP 3 I P ( J ) t OP S I Z ( B ) 
FNT:^C° I 1 ) 

INLET( 1 )tNTE (I ) ,NCCF (NEAtl ) 



BEGIN VMH MID NCOE CF FIRST ELEMENT ANC TREN CYCLE 
THRCLGh EACH ELEMENT. 
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Hi 














lOor^or^o 



TLRac 
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FILE: 



C 

13C 

C 



l^C 



15C 



1 

C 



16C 



17C 

165 



C 

185 



Ml = ,Nf^E ( I I , V ) 

p = F 5 n rn 1 ) 

IT ^ C 
K ^ I I 

IF I I sni. .1 .;n,'C.NTEl .EQ .1 ) GCTQ 700 
IF( I STAI. EO . 1) GPTP. 70 C 
RCI2 = *C (N II ) 
az = E (M 1) 

CHECK TC SEE IF P IS VITHIN the PRESENT ELEMENT 
IF(P. GE.P SI (NCCE(.<, 5)) IGCTCl*^) 

CHECK NEXT ELE'^ENT ^cLCw THE PRESENT ELEMENT. 

K = K 4 I 

GCTci e: 

IF( P.CT.PSI (NCCE(K,4I ) 1GCTC170 
EL = £1(4) 

E° = E 1 (5 ) 

E2 = (EL + E'^)/2.CJ 
CALL 5HAPE( E^,-l .C),SF) 

PA = SF(3 )-PSI (N‘OCE(K,? ) ) 4- S F ( 4 ) ^ PS I ( MQO E( K , 4 ) ) 

4 Sr (5)TP5I (\COE( <,5) ) 

CHECK FCR "“T^FAMlINF CONVERGENCE 
EPS « OAP S( FA -* P ) 

IFIEP S.LT . 1 .C-C5 )GOTO 190 

IT = IT ^ 1 

IF( IT .GT. 15 )GCTniSQ 

IF( PA .LT. P )GGTri/:G 

EL == £2 

GGTGl £C 

ER ^ c 2 

GrTCl 5C 

IF( P.Gl.PSI (N:CE(K,3I )) GCTCI 3S 
EL = EK3 ) 

ER = £1(4) 

GOTO 1 5C 

CHECK NEXT ELC'^ENT AEOVE PRESENT ELEMENT 
GOTOHC ^ 

IF cc'v crgence criteria satistied. 

CALCLLATE V.HIRL ANC STATIC ENTHALPY 



19C 



1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 



NK3 ^ \COE(K,?) 

NK4 = NCOc ( H t ; ) 

NK5 = .\ : j E ; K , t ) 

RCTl = SF(3) - ^C{^’K3) + SF(4) ^ PC(NKA) + 

5F(‘^) - RC(NS5) 

VZl = SF(i) ^ V/(^<J) ^ CF(^) - 7 Z(\Kh) 

^P( 3 ) T vz (' .<3 ) 

VPl = SF(^) * VT(^K^) SF(4) VR(NK4) f 

SF( 5 ) 5 ) 

vMi - cs^OHT(v;i - yzi + v-i ^ vpi ) 

ALPl = SF ( J ) - 1L^(NK3) > "F(4) ^ :»LP(NK4) -k 

SF( -) ;5LP ( ;;<3 ) 

RHOl r SF(3) T '^HC(N‘^3) RP(^) - PHC(i\K4) 

SF( 5) ^ Rh:(^'<5) 

PHOTl ^ S f"( 3 )- = HCT T (NK3 ) + S *^ ( 4 ) ^ P HTT T ( 4 ) f 

£F( 5) * PHCTT(N'K3 ) 

T1 = SF(3) ^ sr(^) TEvp(NK4) ^ 

SF(5) ^ T^MP(\K5) 

TTl = SF(3) ^ 17C"(NK3) SF(4) ttgT(NK4) ^ 

SF( = ) - TTfT i\K^) 

PTl = SF(3) - FTC'^(,nK 3) ^ :F(4) « PTQT(rJK4) ^ 

GF( 5) ^ PTrT( vk5) 

PI = SF(3) T PR^SS(N‘<3) + S^{^) « PRESS(NK4) > 

£F( 5 ) T po = SS (:NK^ ) 

ENTl = RF ( 3 ) 4 CP i NK3 ) + SF ( 4 ) * ENTRCP( \K4) + 

SF(5) ^ Lr!T-nP(NK5) 

HI =: 5F(3) ^ rfN’^M 4- i^(4) * H(NK4) + 

SF(5) H(N<5) 

HSl = >F(3) - HS(r.<3) 4- SF(4) ^ HS(N'<4) ^ 
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FI LE: 



20C 



21C 

215 

C 

23C 

C 



24C 



25 C 



C 



26C 

27C 

265 



C 

285 

C 

C 

C 

29C 



C 

3CC 



TLPPO A1 NAVAL PO STGRAD LATE SCHOOL 



1 5F( 5) ^ FS (NK5) 

K = I I 

GOTO 210 

RCI 1 = < N II ) 

V/.1 = VZ( Ml) 
vci = r ! 1 ) 

VMl = CS0FT('^Z1 « VZl + VRl ^ VPl) 

ALP I = AL M 1 ) 

RHOl - PHC ( M n 
RHOT 1 = R^CTK M 1 ) 

PI = F S E5 S ( M ! ) 

PTl = PTOT (Ml ) 

TTl = TT3T( M 1 ) 

T1 = TE'^P (Nil) 

HI = MM 1 ) 

HSl = l-S( N I 1 ) 

GCTC 215 

IF( NTtl.EC. l.CP* I STA1.EQ.3) GOTO 300 
IT = C 
K = I I 

CHECK TC SEE IP P IS WITHIN THE PRESENT ELEMENT 
IF(P.CE.P5I(NCCE(Kf7) ) ) 007^2^3 

CHECK NEXT ELE^-NT EEL'JW THE PRESENT ELEMENT, 

K = K + 1 
GOT 02 EC 

IF(P.GT.DSMNrCE(K|3) )) GOTO 270 
EL = E US ) 

PR = El (7 ) 

E2 = (EL + EP)/2.E0 

call SHAO r ( 1. CC, SE) 

PA = 5F (1 )- FS I (r:CT= (K , 1 ) ) + SF (7 ) ^RSI (NO0E( K, 7) ) 

1 4 SF ( « )-HSI (\JCE(K,3) ) 

CHECK FCP STr^EAMLINE CQMVERGENCE 
EPS = CABS(TA - P) 

IF( EFS.LT. 1.0-C6 )GCTC2^C 

IT ^ IT 1 

If( I T .C:J. 13 )GC TC2S0 

IF( PA .LT. P) GGTC?6C 

EL = E2 

G0T02 5C 

Ek = E2 

GGTC2!:C 

IF( P.CT.P S! (NC CE ( <1 1) I ) GCTC 2 85 
EL = E 1( 1 ) 

FP = El (3 ) 

GCT02 fC 

CHECK ^ FXT element AGCVE PPESE'^M ELE'^ENT 
K = K - L 
GOTOE^C 



IF CCNVEPGEMC^ CRITERIA SATISFIEO. 
calcll^tf ahipl ani: statt: fi^thal^'^ 

PCI2 - SF ( 1 )-"f ( NCJF ( K ♦ 1 ) ) 4 3 ^( 7 ) -FC (NMP( K, 7 ) ) 

1 4 SF ( c C( M‘^^e( K M) ) 

B2 = SP(1 )*F(MCE(KM ) ) + S F ( 7 )’"3 ( NCO E ( X, 7 ) ) 

1 4 SF ( 8 (NCCE (K ,o ) ) 



GO TC NEXT ELEMENT 



M 




r C 


r» ^ 


( K 


fl ) 


N2 


- 


Nr 


J _ 


( K 


»2) 


N3 


= 


NC 


n c 


(K 


,3 ) 




= 


NC 


DC 


(K 


tA ) 


N5 


= 


NT 


CE 


( K 




N6 


:= 


NCCE 


(K 


t6 ) 


N7 


= 


n: 


on 


( K 


t7) 


NS 


= 


NC 


CE (K 


f ) 


RCA 


( 1 ) 


- 


RC 


(M ) 


Rrs( : 


1 ) 


= 


'’C 


( .N 2 ) 


R c M ; 


1 ) 


- 


h C ( N’ ^ ) 


RCS 


( A ) 


r 




(NM 


PCS( ‘ 


: ) 


- 


P C ( -N 5 I 


RC$( fc ) 




PC 


(N.M 
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<cc 

c 

c 

c 

c 



5CC 



60C 

7CC 

C 



c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 



PCS ( 7 ) 


- 


PC (N7 ) 




PCS ( E ) 




PC (NE ) 




ZCS( 1 ) 


= 


7C 1 ) 




ZCS ( 2 ) 


= 


zc (n: ) 




2C$( 2 ) 




ZC (N2 ) 




ZCi( 4 ) 


= 


ZC (N4 ) 




zrs( 5 ) 


= 


ZC (N5 ) 




zr $( 6 ) 




ZC (N6 ) 




ZCS( 7 ) 


= 


ZC (N7 ) 




ZC$( 6 ) 


r 


ZC (Nc ) 




DO 5CC 


I 


= 






FI 


NC TFF 


J ACGB I. 


CALL 


J 


ACCb ( FI 


( T ) tZl 


DETJ 


= 


R J^C ( 1 


f I) 




FI 


NT I^VtPSF OF 


DIM 


= 


-i J4C (I 


» n / ' 



AM . 

( I ) , o 



f c J 

.a 2 f 2 ) - 

JACGP IAN. 
ET J 

RJAC(UI) = kjAC<2,2) / CETJ 
RJ^Cd »2 ) ^ -RJAC(1»2) / CETJ 
RJAC( 2 f 1 ) = )AC( 2 • 1 ) / OE 

RJ/C(2 ,2 ) = OU'd 



, /rs, RJAC) 

R JACl U2)^P JAC ( 2 T I ) 



FIND CNI/DP AND ZKl/DZ 
OC AOD L ^ IfNNE 

cz( u = Pj ^c ( 1 a ) ( L ) 

CR( L) = PJ AC< 2, I )^Oa ) 
CCMINLE 



oj AC (1 ,2 = ( L ) 
- J AC(2»2)-E( L ) 



CHECK TC SEE IF SCLUT ICM IS AT INLET 

FIND C(F5n/DR AND 2(PSn/nZ 
DPS IK( I ) = 



OPSIZ( I ) = 



CCMT INLE 
I ( N T F 1 . E 2 . 1 ) 
IF( I S 1A1. ZCai 
CPS IP2 = SH ( I ) 



DPSI22 = 

GOTO 7CC 
OPSIR2 = 
CPSIZ2 ^ 
CCNT dLE 



SF (8 ) 
SF ( n 
SF id) 

2 P ^ I ^ 
CFS Iz 



1>M D'^^SU^IV 
CR ( 3 ) *PS : ( ) 
CP < 5 ) -P S M \'5 ) 
C=? (7)^^PS I(N7) 
rz ( : (Ni ) 
CZ ( :)^PS I (N21 
CZ I 5 ) ^PS ' (N8 ) 
CZ ( 7)=t^PS I i N7) 

COTi: bOO 
GC-^n 6 00 
^ GPS IR ( I ) + 

^ CPSU(8) 

2P SI Z ( 1) 

- CPSIZIB) 



> ( 2) ! (N'’) 

+ OP ( ^ )^PS I (NA I 
+ (NS ) 

4 nr' ( C):fpC[(^|^) 

^ CZ ( 7 ) -PS I(N^ ) 
+ Od A)^c>SI (NG) 
+ 1/(6) -^PS T ( N6) 
+ nZ( c)^PSI (NG) 



SF ( 7 ) 
SF (T) 



JPSTR(7) + 
OPSIZ(^) 



(M ) 
1‘^ ) 



RETURN 

ENC 



SLEFCUTINE 

INTEthP , ENTr 



FC A I ( F ,*i ,H » ZA a A , VZ f FC *ZC » P L • VU t NR C » NOC ■ 
. )P, TT^T, NNCCf NEA 



t f 



444444-»4'»' + f444444+44 f4f>-**44+4-J- + + 44'4 + +4-+4 
4444-4444+444-444^4444I444^444444444 + + 4 4-4^4 + 444 + 44 -i-* 
4 + 

44 THIS SUTRCLTINE CAlCULATES THE RIGHT-HANU 

44 Ff=T^ K^r^.v PAOnL ^ I ST ^ 1 3 L T I G,n S OF 

4+ ENTHZLPYaC'^^pLPV ♦ AM E\'"^*C?Y, 

44 CALL STaTE^^SM PCF IiM'^IC'.' S: 

4+ F = ^IGnT HANi: SIlE VECTpr 

44 V* = galsian height •l‘’Cti:n 

44 F = NCCAL rniAl enthalpy V^C TO"’ 

4+ ZA = ACPAY C- -XCI^= GALSIV: VALUES 

44 EA = ARRAY OF ETA GALSUN VALLES 



■4-^44f + -^444-*-44P 
f 44 4* 4 f 
4 4 



SIDE VECTOR 
WH IRL f 



4 4 
4 4 
4 4 
4 4 
44 
4 4- 

4 P 

4 4 
4 4 
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FILE: TLPBO 


FCR 


C 


4 4 


VZ = 


c 


4 4 


PC = 


c 


44- 


ZC = 


c 


4 4 


>PL 


c 


44- 


VU = 


c 


44- 




c 


4 + 


NCCE 


c 


44 


NN = 


c 


44 


NE = 


c 


44 


VU = 


c 


44 


NTE 


c 


4 4 





fC 

c 

c 

c 



FCRTP^N Al NAVAL FC STf^RAOL ATE SCHOOL 

^•CC^L AXl^L VELOCITY 
appay cf nodal P CODPOINATES 

AFPAY nodal Z Crr'OI.\AT*S 

= ^^CAL amgjlar vector 

^CDAL Ar:SfLUTE T.^^GE\TIAL YfLlCITY VECTCP 
= ^C•OES ^HERL ^roNCARY CCNCITlorjS APPLY 
= /i>•,P^Y OF PLEHE^*^'AL ASSIGNM-NTS 

^L^''JER CF NCoES IN THE f^£SH 
NL**"FER OF ELEMENTS !N THE ^ESH 
NCCn R*=LATIVE TANGE.v^TI*l VELOCITY VECTOR 
= TYPL LF ELE^^ENT ARRAY 



If'FLICIT REAl.^E( i-H ,P-Z) 

INTEGER < A ^;r^EAL,^^.t I TE , IC,NNCJ t NE A , N N E A, NRGW 5# L IN’R tL IMI 
CCNMON /^CClJf.T/ NCCL fHCCLl » NN, NE 
1 ♦NNEt-VNEC ,\NNPC 

/NCC'INT / ,*^ROW 1 , KK 

CCNYGN /FCC 1 / FG tG , CPf ,TT , XG fU-DC-T , chct , RHQST A, 

IL INL'T , LCLL= ,PEi ! , 2T J , = Z I ? , FI II t'.C 
C INENS I CN ZC ( 1 ) C( ! ) , H( I ) t F ( 1 ) , TTRT ( 1 ) 

D INFNS ICN VZ ( 1 ) • Vl( 1 ) , o.-’L ( 1 ) f :-G (I ) ,S FI (ri ) 

c i/"e::s I c^ r ac( n t'>TC( i ) (‘’E a, i) 

C ^ NEKS I CN ,ZM^ ) , EA( •- ) , Fs ( R ), ( 1 ) , ENTPOO( l ) 

C INENS I CN D( 3) ,E t c) f Sr (H 1 ,RCS( e ) , ZCS ( 3 ) , RJAC (2 t2 ) 

zEPr izc OUT F$n . 

CC 50 I ^ 1,NNE 
FM I ) = 0 .CC 
CCMIMLE 

CYCLE FCR EACH ELEMENT, 

CC ICO II = l,NE 



*f 4 
> + 
+ -f 
*»• + 
+ + 
+ + 
+ + 
+ 4 
4 4 
4 4 
4 4 
4 4 
44-^4 + 



M ^CCE ( 11 , 1 ) 


N 2 = NC 


DE ( I I , 2 ) 


N 3 = NCCE ( 11 , 3 ) 


N 4 = NC 


c- ( I ) 


N 5 = ^C 


> ( 11 , 3 ) 


NA = NC 


Cc i I 1 , M 


N 7 = rc 


0 - ( ! T , 7 ) 


N 8 = NCOE ( I I ,F ) 


RCi( I ) 


= '’C 1 ) 


RC $ ( 2 ) 


= .-C ( M ) 


PCS( 3 ) 


= F C ( N ] ) 


PCX ( A ) 


= RC (^ 4 ) 


PCi ( 5 ) 


= KC (^ E 1 


RC *>( e.) 


= (NM 


RCi ( 7 ) 


= (? 7 ) 


RCS ( S ) 


= PCI N ) 


ZCX( 1 ) 


= !C (VI) 


ZC 5 ( 2 ) 


= ZC (NE ) 


ZCi( 3 ) 


^ Z C ( N 3 ) 


ZCS( 4 ) 


= lar-) 


ZCS( 5 ) 


= ZC (N 3 ) 


ZC $( ^ ) 


= ZC (7 E ) 


ZCA ( 7 ) 


= ZC(N 7 I 


ZCS( E ) 


= ZC (N 8 ) 



CYCLE FCR EACH LOCAL NGDF . 

DC 3 C 0 J = 1,9 

CALL Str?r. ( (j ) ,£A( J )tSD 
CALL JACC.A ( * W J ) t ZA (J ) , ) .2, FCXv ZC3, - J iC) 
DETJ = - JAC { I , 1 J ^=RJ AC ( ^1 - :-JAC(lt^)-R 



C. _ _ 

DETJ _ . . . 

FINC TH- inverse cf THE J^CCBIAG. 
DLM = P JAC ( 1 • 1) / '^FTJ 

RJKd d ) - RJAC(2,2) / CFTJ 



JAC ( 2 , 1 ) 
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FILE: TLR0C 



fCPlP^K A1 NAVAL PCSTGPADIA^E SCHOn L 



10! 



lOE 



lie 

C 

c 

c 



2CC 

2CC 

c 

c 

c 



5CC 

IOC 



c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 



RJ/C(lt2) ^ -PJAr(l,2) / OETJ 
*RJ/C(2,1 ) = -»JAC(2,1) / DE^J 
Rj;C(2 ,2 ) = 

FIND .MMLIf NMVI ,ThE"^AI ,NI=«^PI ,D(^’C'L )/CR,D(H»/QR 



SU'IU 
SIM V 
SUMk 
CSDP 
£ IM T 
TCSOR = 



0 .DO 
C.DC 

c.oa 

C .00 
C.DC 

c. ro 



CV.RLR = o.c: 

DHDR = C.nc 
CC lie KL = ItN.NE 
NA I = NCCEI I 1 ,KL ) 

= ^LML ^ (K L ) - V7. { NA 1) 

suyr = SUM! f sp ( k u*"tt it( ry, i ) 

IF (NTE( I n .:0. 2 ) GCTCI 05 
SUNV = SIJ‘W + SF (KL )*VJ( \'*1) 

DHCR = CHOW + (? JAC ( 2 t I ) UL ) 

+ P JACI 2 ,?)-■( ) )-h( ) 

CSCP = CSDR + (P J.' C( 2 . 1 ) -n(KL ) 

+ RJAC( 2, 2) - £( KL ) ) > fO ^ RCP ( ‘! 4 1 ) 

GCTC1C6 
SljyV = Su.'iV 
DHCR = 



SF(^L VJ( NAD 



+ 

DhlR + (PJACI'^.l. ) ^r(KL ) 
+ JAC( 2, 2) -c( KL) ) ( 

CSCR = CSOR + (R J-^C(2tl ) *0(KL ) 
+ P JAC ) = 

> 5F(SL)=i^P2( % 



-0'-; 

i) 



i) 

RCP ri4i ) 



SUkR = 

DV^FLP = OwRLR + ( J 2C ( Z , 1 ) ( K U 

+ RJAC(2,2) =^E( <U )-'rPL(N41) 

CCNTINUE 

F INC rs( NC2E( I I , I ) ) 

TOSCF = SLM « 020R 
CC 20C I ^ 1 ,^^E 

XX = (TDSCR - OHCP > ( SUMV/S ^nv.RLR)’^^(SF( I) /«:l**u)-oetj 
F^( I ) = F S ( I ) + XX ( J ) 

CCMINLE 
CCNT lAUE 



AS 


5 


EVPLE 


R IG 


HT HANC 


F (M ) 


— 


F f M) 


4 


FS (1 ) 


F < A2 ) 




F I ,N 2 ) 


4 


FS ( 2 » 


F ( ^ Z ) 




F ( 1 ^ 3 ) 


4 


r i ( : ) 


F ( ^A ) 


= 


F( 


4 


F S ( ^ ) 


F (N5) 


- 


P ( ) 


4 


F f. ( 5 ) 


F ( ^ A ) 


tr 


F ( ^^ ) 


4 


FS (6 ) 


F ( ^7) 


= 


F( ^7) 


4 


F5 (7 ) 


F ( ^ E ) 


sz 


F( ^ E ) 


4 


F S ( o ) 


00 5CC I 


- 


1 • N ^ - 






F t ( I ) 
C2MT lAUE 
CC'TINJE 
RETURN 
ENC 




c.cc 







4 4 
4 + 
44 
44 
44 
44 
44 



^UBRClTriE CSIVO (^^CN-IMSL) 

ADAPT EC FOP THE ZnO BY PON EPONFL L 

PUPPC 5E 

neiAlN SCLL'^ICN CF A SET CF SIMULTANEOUS LINEAR 
ECLATirNS, AX=^ 



4 ^- + 
• 44 4-*“ 

4 4 
4 4 
44* 
4 4 
4 4 
4 4 
4 4 
4 4 



210 



FILE 



TLR60 



FCRTR^t M iN^VAL PC S TG R AO I A TE SCHOOL 



C 

c 

f 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 



c 

c 

c 

c 

c 

c 

c 



c 

c 



++ USAGE >> 

+ + CALL 0 SI 4 , ? ,N ,KS) > ♦ 

+ ♦ 

>> CESCP IFTICN or voters + + 

4+ A ;5N,0 F .^L5T P- RE4L-8 ♦ + 

+ + A - MATRIX CF roEFFICIENTS STOR-0 COUJ’iNWISE* + + 

♦ + THESE APE C'^STRCYF: l\ THE CC‘^ PIJ T M I Or: . THE > + 

+4 SIZECF'^AT\!XA!SN '^YN.^+ + + 

44 B - VFCTCR CF CRIGINAL CCNSTA^ITS {LE\’GTM V). TH«^SE 44 

44 ARE F^FLACEO riY FU.AL SfLJTK'^l VALUES, VFCTC^ X. 44 

44 N - MJMPEF CF rJUATin\c VARIABLES 4 + 

44 KS - OLTcut DIGIT 44 

44 0 FCR A NCR^AL SOLUTION 44 

44 1 FCP A SINGULAR SET GF ECUATIONS 44 

44 44 

44 REMARKS 44 

44 MAIRIX A VLSI Pr GENERAL* 44 

44 IF YATKIX IS SI'^GUL^R , SCLiiTICN VALUFS APT yEAMlUG- 44 

44 LE5S* AN ALTPc-r-jTv- SCLtirCU EE C-^rMNcC PY U’^ING 44 

44 matrix I^VEPSICU ( MNV ) ANO MATRIX PPOOUCT (Gi^PPO), 44 

44 4 4 

44 SUBRCLTINFS A^ C FLN'CTIGN SUePPCGRAVS pECUIREO 44 

4 4 rj C K E -4 + 

44 4 4 



•4 44 44 + 4 + 4 + 4 + + 4 . 4 +- 4 +. 444 - 44444 -f+ 4 - 



44444 + 



4444 + 4444 - 



> 4 4 + +-+> 4 +T+ • 



SLERCUTINE OSI VC (A, E,N,KS ) 

SUERCUTIKE OSI^'Q NCT INCLUDED NCN-IMSL LIBRARY SUBRrUTINE 



SLPRCUT I^E STIFF{PC,7C,B,EMS,ZA*F!.,w ,NC?F,RH0, 
IFSI ,F,PHS ,<=M ,^?C,^^CD, N'^^+hNNC^ ,NRGWS ) 

444444 44444444+4 4+44 f 444444 + 44444+44 

4 4 
44 

+-4 44 4 4 44444 444 4444444 + 4 4444+444444 44444 + + + + + 



44 ++ + + 



44 + 44 4 + 444 * 



•++ 4 + 44444+44444 




IMPLICIT REAL^P(A*^>,P-Z) 

I N TEGEP ^.P EACf ^ V P I ! C, NNCO , , N N E<^, NRC^^S , L I MR , L IM I 

cc^ycM nc> l,ncoli ,nn, r e 

1 FC,^N^EC 

CCYY1*.N /FCCO / =C CP t PT ,TT , ..G *^Or^ , ^PCT , phCST A* 

IL INL-T ,LCLL“ , P M I t -^TU ,F2 L2 , PI :i, :C 
CCNMCN /r-Cru.jT / ,KK 

CCN'^CN /L ir/ its 

DI^F^SIC^ Z*" ( 1) ,-C (I) , 5(1 ) ,EPF{*^ ),RFC{1 ) 

CINF'SIfN { 1 ) , V-C^{ , I ) ,' ic) 

CI^F^ST^^ EMNNCC,! },UJAC{G,:^),P‘SI{ I),p(I),PHS(1) 

C I.^ENS L CN Of - ) , : { c ) ,£P { *3) tZA {C* ) ,EA( 4 ) ,-^( ^' ) ,DN;)Z { 3 J 

C L^E'-S ICN RL i{ E) , ZC 3( 3 ) , { 3, E) , -<J AC C, 2 ) ,DNDR( 8 ) 



AGO 




I I = 


1, 


NF 


M 


= 


^^CE 


{ ! 


1,1 ) 


N2 


= 


^CCE 


{ I 


lf2 ) 


N3 


— 


^CDE 


{ I 


1,3 ) 


NA 


= 


^rcE 


( I 


I, A ) 


NE 




.ac:;e 


{ I 


I ) 


N6 


= 


^cc= 


{ I 


I,- ) 


N7 


= 


^CCc 


( I 


1,7 ) 


N3 


= 


NCCE 


{ I 


I , P ) 


RCf 


( 


1 ) = 


PC 


{r:i ) 


RCS{ 2 ) = 




(N2 ) 


RC$( 


i ) = 


r r 


{Ml ) 


RC$ ( 


A ) = 


RC ) 
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c 

c 

c 

c 

c 



c 



221 

ICC 

c 

c 

c 



23C 

C 

2CE 



C 

r 1C 

2CC 

22C 

C 

C 

c 



35C 

C 

C 



RCS { 5 ) 


= 


PC (X5 ) 


RCS( 6 1 


= 


P C ( ^• F ) 


RCS ( 7 ) 




P C ( 7 ) 


RCi ( 8 ) 


= 


hL (r i ) 


ZCSi 1 ) 


r 


ZC (N 1 ) 


ZC$( 2 ) 


= 


7C (N2 ) 


ZCS{ 3 ) 


r 


ZC (N3 ) 


ZCS( A ) 


= 


ZC (NA ) 


2C:5( 5 ) 


= 


ZC (N ^ ) 


ZC5( 6 ) 




ZC (F^- ) 


ZCS( 7 ) 


= 


ZC (N7 ) 


ZC5< 8 ) 


- 


ZC (N3 ) 



PERFOI^M GAUSSI^^ C!JAC«5ATUPE INTEGPATIGM 



CO 32C I = 1,^ 

CALL SHAP=(Ei(I) ,ZA(I ),SF) 

CALL JmCC® ( lU n »Z A( n ,r S tZCS tRJAD 

CETJ ^ P JAC (1 , n=^^RJAC( 2. 2 ) - R JAC( 1 , 2 )-’.JAC ( 2 » 1 ) 

F I^C lAVE^SE CF JAfCBIAN 
DLh I = R JAT (1,1) / CETJ 

RJ/C(l ,1 ) = CJfC(Z,2 ) / CETJ 
RJ^C(1,2) = -RJAC(L,2) / CE^J 

Rji5C(z»L ) = j‘.c( 2,1) / o:tj 

R J/C (2 ,2 ) = COM 
DC 321 J = 

C.\OZ(J) = WJAC( 1, ( J) + RJAC( 1,2)^F( j) 

0\OR(J) = RJAC( 2,1 )’i=n (J) + PJAC (2f 2 )-c( J ) 

C CM IN OF 

IF( I I*NF. 1 ) GCTQ IJC 
CCNT i^LC- 

FINC RHC, R, ANC 3 FQR M’JMERICAL INT^GRATICN. 

RFCR0 = C.CCC 
DC 330 L = lf(\r.E 

MIL ^ .NCOEd I,L) 

PHO^B = KHCRO > SF ( LI *PHC(0 1 1 U *PC( 'il IL )*R ( M IL I 
CCMIJiJF 

SM* = ( 1 .CC/( RFCPB ) ) AA .00)=<=1 2 .000 

DC 3CC J = lt^^E 
!F( I I .,\E. 1 ) GCTO 30^ 

CCNT UUC 

OC 310 K = 

EiV<(J,f;) ^ E'^r(J,K) + 0 ( 1 ) ^ s IK - (CNOZ ( J ) 

1 ONO.d J) ( K) ) OETJ 

2 ^ 14A.0C0 
CCM INLE 

^^LE 

CCMIJUE 

ASSEFOLE SV!;TF*-' tiflueoce ^at^ix w/cut regard «=cr 
LGUNC ^PY CCNF IT ICNS 
N( 1) ^ M 

N(2) = \Z 
N(i) = F3 
N ( A ) = N A 

N(5) = N5 

N(6) = ^^S 

N ( 7 ) = \ 7 

K(R) = N3 
DO 35C 15 = 

I = F( II ) 

OC 350 Jt 
J = >M J $ ) 

E^( UJ ) = 

CON T I ME 

ZERCIZE CUT 6MS( ) FG NEXT ELEMENT 



1 fFNE 
= liNNE 

EM( I ,J ) E'^S( II , J1 ) 



ZCO 
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CO 3 7C 12 = L,NNE 
OC 370 J2 ^ ItrNE 
ErM(I3,J2) = C-OC 
37C CCNTUUE 

C 

C RECYCLE FCR NEXT ELEMENT 

40C CCMINUE 
C 

C MODIFY SYSTEM Of ECUATIONS TO INCLUDE 3CUN0ARY CCNOnCNS 

C 

CC 410 I = 1 ,NN 

DO 4 1C J = 1 ,NN^C 
J X = N E C ( J ) 

F( I) = F( I) - (I, JX)^PSI( JX ) 

( I »JX) = c*nc 
( JX, I ) = J .DC 
E.'^lwXtJXl^ I.CG 
F ( J;() = PSK JX) 

410 CONTINUE 
C 

RETURN 

ENC 



C 

C 

C 

c 

c 

c 

c 

c 

c 

c 

c 

c 



c 

c 

c 



$L0Pn:jT I RFFLA ( F$ I tF ,RH^,NN"^C ,NE4 , N N E4 ) 

4’f'»444 |4-t-t + +-*44+f+4 4444444-44-4+ + 4+ 4 4+4>++4+f++++4-444 + + f44 + + +f4+44-+4 + .». 
4+444 + 4++4 + 4444+4+4 + + +4+444 + +44-+4444444444444444+4- + 44 + +444+444 + + I-4-4 + 
4+ 4 4 

4 + 4 4 

44 + 4 44 444+4+44 4+4 + 44 + + 44 + +4 + +4++++ + + 4+ 44 444 + 4444+4 444+4+4+ f4++ + + ++ 4 + 
+ 4 4444 4+4 + 444 + 4+44444-t-+f ^+ + + ++ + ++ + + + ++++ + +++ + + + ^.+4 + 4.4.4.444+ + + 4. + 4 + + 4 44, 



IN FLIC IT .--H ,F-Z) 

1 N'^EGEP'^^ E AC tr.V.P ITE »; C fNNCD t\E ^,N N E4, NRCWS, L , L lY I 
CCNYON /NCrjNT/ .\rni_,-^COLI»\N‘,NP 
1 ,NNE tNNeC tN U rC 
CCV^ON /*-CL )NT / ,MPCN 1 ,KK 

C I NF.NS I CN PS I ( 1 ) , PS IC( 1 ) , - ( 1 ), '^HS ( 1) 

REPLACE PSK!) w ITh SCLLTICN VECTOR ANC r-ESET F(I) Wl^H ^HS ( I ) 



CC ICO I = 1 tNN 
PSI ( I ) = P( n 
F{ I ) = FHS ( I ) 

ICC CCMINUE 

C 



FETUPN 

ENC 



C 

c 

c 

c 

c 

c 

c 

c 

c 

c 



c 

c 

c 



»N»C»NNrc ,f 

■44+44+4+4 



SLPRCJTINE RELAMPELX,FSIMSMfNPC»NNrc,f j 

+ +4+44444 + f + + + + + 44+444++ + ++ 44 + 444+444+++4 + ++++ + +4+4-*>4-i 
+ +4444444 + + + + 4+ + + ++ + + + +4 4 + + + + -»*+444 4 + + +4- + 4 4++4 + 4+4^+-^ + +4.4 + 4. + 4+4^ + + 4 + ^ 
4+ 4 4 

4+ 4 4 

4++ + 4444t-4 444 + + ++ 4+ +444+4+4+4 + + + 4+4++*-++ 44 + +444 + 4444+4+44+4444+44 + + 4. 
4+444 4 4+4 444 4444 4 + + 4+ +4444-4+++ + ++r4+4 +4+ 4+4++44+ + 44 + 4+4 + 4 + + +4 + ++r + + + 



INFLICIT K A-H ,p-Z) 

INTECc^'^^^ NR3*iCt‘ X- ITE,IC,NN^O , NE ^ ♦ N N E ^ t NRC.s' S, L 1 MR , L I M I 
CCN*^fiN /rCCMM / *'Cf L f iCULl , RN, NE 
1 ,NN*=,NNPC ,:>NN 3 C 
CCN‘^rN /^CC'JM/ .''POvv 1 , kk 

C INENSr CN PS I ( 1 ) ,F3 IG ( 1 ) , F (1 )♦ FFS (1 ) 

C INENSI CN NOC ( 1) 

IF KK Gt i, FFRFCRM UNCPR o-l^xATION iG^^OFE 
COf^FLTING NEy. VELOCITY Ai\C OE'lSITY D I 5TP I G-JT ICN . 
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FILE: TLF0O FCRTR^^ M NAVAL FGSTGRADUATE SCHOOL 



C 

CC ICO 1 = 1 tNN 

DO 2CC J = ItTNBC 

LTEST = I - NRC(J) 

IF(LTEST*EQ.C) goto IOC 
2CC CCNT1^LE 

PSI(I) = PSIC(I) f RELX^(PSI(I ) - PSIO(I)) 
IOC CCMT.mUE 
FEILFN 
ENC 



C 

C 

c 

c 

c 

c 

c 

c 

c 

c 



SLEPGUT UE M^"CCN( X, F,PST,PSIf»r^, 

+ +4 + 4 + 4 + ++ ♦ + 44 + f ♦ + ♦■ffi'+ + t+f^ 

+ +444 + 4+->. + ^444+++++4f- 
4 + 

4 + 

4+4444 



[^L »\‘NnOfNE-^,":MF^) 

4444-444l--»'-t«-*-'4 + + 4 + + 444-*-<-4++«»-+4 
4 + 44 + 44-l--#' + <-4-44 + 

+ 4 
4 4 

4 + 44 444 + 44 + 4+ *♦-> + 4^-^-++ + 



+444+444+++4444+444444+44++4* 



44+44+4+4+ 



4 444 



► ^- + + + 



I^FLiClT REAL^6( ^-H,P-Z) 

INTFGPR=^ A \P r [tc ^ I NEA, NROWS, L IMP , L IMI 

CCV.‘^CM /NCrUNT/ NC(^L t.NCGLl ,NN, NE 
1 , NNEtONcf tNNf rfC 
C C ^ C^WN T / tTQ^ , KK 

CCf^MfN /lie./ 'iPE-iL,N'>P ITE 
C ivC^’Sir.N PS I ( W tPS K( 1) ,£'M \.\CD. 1) • F< 1) 

Vfi ITP ( ,\w F IT= , lAOO ) KK ♦ X 

14C0 FCP^AK • EPS Fr'^ ITERA-^IDN • , 12 ♦ • IS •,01<;.I2) 

IF (KN.LT. 22 )GCrr IGO J 
IFl = 0 
GCTC 451 

15 CO F ITE (N'^ F ITE • I 1C2 KK 

11C2 FCFV/'K* •t*ITEP^TIC^ NO. ^ r 17 , • Cn M FL ET E * • / ♦ * ST'^EAV FUOCTPN' C^M 
IVEPGbNCE NOT YEl SA T I S F I ED . * t / K lEXT ITEPATIOM IS IN PROGRESS*) 



C 

c 

c 

c 

c 



FREF^RE FCF NEXT ITFRAinN. ZEROIZE 
STIPFNcrSS MATRIX AND RIJM^ HA^‘C SIDE VECTfP 
P.EPL/!CE PSIOO ^ITb COPPENT VALUE PP PSI. 



IFl = ? 

CC AcO I = 1 tNN 
F( I) =: C. OC 
PSIO ( I ) = PSK I) 
on ^6C J = 1 • 

( I »J ) = C.DC 

A6C CC^TI^^jE 
451 PETLP.'J 
ENC 



C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 



c 

c 

c 



SUE«?CUT UE T FST{ c$ I ,PS IP ,X,NNUD tNE-, N\E^.N?0''fS ) 

4 + 44 4+4+ + +<“44+4+ 444t-^4+i-^-+^->4’4-44*+-*- + 4.4.++4. + + 4.-I.4. 4.>4+4444-».4. + > * 4-4 4 4 

+ 44 444 444+44444+44444 44- + 4-^4+ 44-4+4++44- + 4+ 444+-^44 + +44-44 44-4+++44--<“44>+ + 4 + 
4 + 4 + 

44 4 4 

444+4 4 44 + +44444+ + 4 44 4 + 444444+44-4+4 4444+4 44444444+44 + 4 4++4+4 + 4 + 4+ +44 + 
+ ++ + + + 44 ++ + 4444+4444 444 + +44+4 + 4444+44+4 + 44444444 44 444444444- 



1/^FLIClT REAL’^S( A-HtP-Z) 

I N T EC-P R A -VP = A c , N I TC , J r ^ ONC^ »OE «A, >J \ = 4, MROW s, L I BR t L I ;X I 
CCl^xr.N /^C^U^’T/ !\C. jL ,OCGLI ,NN, NE 
I • ^^E,^rlEC 

CI^E^3IC^ FSI (1) tPSIC (1) 

CC.voAPE NEW ANC CLC STREAM FUNCT ICM D I STP I OUT I 00 S 

X = o.oc 



214 



FILE 



TLPEO 



FCRTP^^ AL NAVAL FGSTGRAOLATE SCHOOL 



DC 100 r = 1 ,NN 

IF (PS I ( I) . cC.C .PG ) GOTO 1 10 

EPS = CABb( ( PS 10 ( I ) - oSl ( I ) )/r>S I ( I ) ) 

GOTOl^C 

lie E^S = C^CS( FS IC( I ) - PSKD) 

12C IF ( > .CT, zPS) GCTC IOC 

X = EPS 
IOC CCMIMUE 
REIUFN 
ENC 
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APPENDIX G 



3AI!PLE PROGRA^l OUTPUT 



^EMCRV SPAC!: AVAILABLE : 

PEAL 8 = ^*=9 IMTEGEF = 983 PEAL 9 = <^24 



^ASA TASK-1 TRANSOMtC CC^PRESSaR 





NC. CF MOOES = 


2 22 




NO. OF 


ELEi^cNTS = 63 




^C. CF ROWS = 


7 




NO. OF 


COLU:-^NS = 9 






SUNVAPY CF .\ODAL 


COrPQ INATES 






NOCE 


zn ) 


a ( I) 


6( I ) 


AB S r 


LOW Ar:0 P-L 


1 


c.c 


C. 1667800 + 02 


C.910)CCO+00 


0.0 


0.0 


2 


0 « L 


0. 182^'o00+32 


C.9130 :QC+30 


0.0 


0 . c 


*5 


C- c 


0. 176^240+:? 


0.9 10 0 GOC+ 00 


0.0 


0.0 


A 


c*c 


C. 170^:320 + 02 


C. 9100COC+00 


0.0 


0.0 


c 


c.c 


0. 16 3^090+02 


a.9i)occo+’0o 


0 .0 


0.0 


6 


c.c 


C. 1571940+02 


C. 9100 COC + 00 


3.3 


0.0 


7 


c.c 


0. 15008 ID + l 2 


C. -100 CCO+LC 


0.0 


G.O 


8 


Q.C 


0 . 142ci40+02 


O.^iOu GCC + OG 


0 .0 


0.0 


c 


c.c 


0. 1347340^ 32 


c. rloo c :o+3o 


U .0 


0.0 


1C 


U . L 


0. 126 '430+02 


C.91 J0G03+U0 


0.0 


0 . c 


1 1 


C.C 


0. 1172970+02 


u .3100 c J3+ JO 


n . J 


O.G 


12 


c.c 


C. 1076860+02 


C. 3100 cc. + oc 


u .0 


0.0 


13 


Q .0 


C.<=700^ 10+01 


c .^100 cc: + oo 


0 .0 


O.G 


14 


C.C 


G. 6*= OGICO+Ol 


C . 1 ^ vj C \j .-.. + ^ J U 


0.0 


0.0 


15 


Q.C 


0. 7099003+01 


C. 10 J COO+uvO 


J. 0 


0.0 


16 


C.25O00CC^0l 


0 .1 + 6 5100-^0 2 


C .9 L J 0 6 0 L-/ + 0 0 


J .0 


0 « 0 


1 7 


C. 1503:cc>01 


G. I .^5C2 I3>o: 


c. 9^r) cor + ^0 


J .0 


O.G 


18 


C . ItCOCCC^-Ol 


0 . 16 2-.7qn + 32 


c.<^i\joc: + oo 


0.0 


O.G 


1 c 


C. 1500CCC^'Cl 


0 • i'* 6660 O + 02 


0.-130 033+00 


3.0 


O.G 


2C 


C. 1503CCC^'C1 


0. 133^5?^+C2 


c. 'n J J CCJ+ 00 


lJ . 0 


J • 0 


21 


C . 1 C C C +U 1 


0.116^ ^ 3.3 + OZ 


c. ')i:o col>oo 


0 .0 


O.G 


2 2 


C . 1 5 C } C C C > C 1 


C • 56462 4 3 +01 


c.'+:j‘)o J3 + 0 0 


0.0 


0. J 


23 


0 . I^CoOCl toi 


C • 1 J 9 9 V J ^ J -f c 1 


C. ■‘IJjCCO+OC 


0.0 


0.0 


2^ 


C.3COJCCC+01 


C . IOh ^-i^00+C2 


u . > L JO G C L' +0 U 


0 .0 


0.0 


25 


C. 3C30nCC4-v:i 


C. 17ci^z,r> + 02 


C.^1 jJC3J+uf) 


0.0 


0 . 0 


26 


u • 3 C;.' Ju 0 C + C1 


0.1732193+02 


C. >I JO C3<U00 


3. J 


0 . c 


2*i 


C.3CCC3CC tCl 


C. 16 71063 + 0 2 


C .7100 C03+ ):j 


0.0 


O.G 


26 


c. 3 CmO )cr tci 


C. loG74 10 + VJ2 


L • ^ 100 C C 0.+ (; J 


G. J 


0.0 


2S 


C.3COJ^CC+OI 


0.1^:4 15-»0 + 02 


0 . nou ccr:+oo 


0 .0 


O.G 


3C 


C.3COO OCC^Cl 


G. 14 7 25 23 + 02 


C.'-l OOGCl' + OO 


0.0 


i ) . 3 


31 


0 . 200 j»; 0 1 ♦oi 


C. 1-C0103-^j2 


L . 3 1 Jl) C C0+ J C 


0.0 


0.0 


32 


C.3COOOOC^*01 


0 .13 2 : 7 20 +0 2 


G .9100 CGD + 00 


G . 0 


0.0 


33 


C.3CC00CC^C1 


0. 1242650+02 


C.9133COl>00 


0.0 


0.0 


34 


0.3CG00CC+C1 


0.11 559 in +C2 


0.9130C03+CO 


0.0 


0.0 


“5 C 


C.3C00‘JCC + C1 


0 . 10621 20 + 02 


G.9IOOC3P+CO 


■J . 0 


0.0 


36 


C.?CO-)‘"CC +01 


G. 95911 lO + oI 


C.3 luo cCi.+ CC 


U . 0 


0.0 


3 1 


C .? COOO G C ^01 


0 .:-'4 3 30 2-+Cl 


C.3 1 )OC0G + OO 


0 .0 


0 . J 


36 


C. 3Cr-CCC+Cl 


C . 7 C 5 - C CO + 0 1 


C . 9 i J 0 G C <■ J 0 


} . 3 


0.0 


3S 


Cl ♦ -1 


0 . 1 P 4 + 6 CO + 0 2 


C. 3loOCCf*+ CC 


0.0 


O.G 


4C 


C.45GQ0CC+01 


C . 1728720 + 02 


C.0I0300C+00 


0 .0 


0.0 



PLC'rt AMS 
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OO0OOOOOOOOC./OC jO<^OOcvOOCjOLjC'. 



SU^^'A3V CF liGCAL CuCPOrJATES 



NOCE 


Z( I ) 


Pin 


B( I ) 


ABS FL2W 4NG 


PEL FLCW AVG 


41 


C.43000CC H)1 


G . 160 <490+1 2 


C.-IIOOCOC + OO 


0 .0 


0.0 


42 


C.4SO00CC-^Cl 


C. 146*^750 + 02 


C.'il JOCCu+00 


0.0 


0.0 


43 


0 • ^ 500 OC C 


C a 13 2 14 40 +^2 


C.F10uCC3+30 


J.O 


0. c 


44 


C.^500CCC K)L 


0. n ao+0 2 


L.'11>)0 CGG + JO 


0 . ) 


0.0 


45 


c.ASoaccc+ci 


0.5561+50+ Jl 


C.^ 1^10 00 0+ 7C 


0 .0 


0 .0 


46 


c .45ooocr+oi 


0.70*^*^000+01 


C.'UJO CCO+00 


0.0 


o.c 


47 


C .6CC0CCL'>0L 


0 • 18 4 0 i 00 + 0 ? 


C.9100C3C+00 


0.0 


0*0 


48 


C • 6 000 vlO C 


C . 1 7R2 ;6L+0 2 


C.'ilJOCCD+UO 


0.0 


0.0 


4S 


c.ocoo :cr+oi 


0. i/ 25240 + 02 


C.OloOGGO+00 


0 .0 


0.0 


5C 


C.6CU00CC>C1 


0. 166446 O + iJ 2 


c.-iQo cc:+ 0 0 


0 .0 


o.c 


51 


C .•■‘OOOOCC *-Cl 


C. 160 1370 +02 


C.OIOOCCO+OQ 


0.0 


0.0 


52 


C ,6000006+01 


C .15 3 56^0 + 0 2 


0.91000012 + 00 


0 .0 


0.0 


Q *3 


C.6C00JCC+CI 


C. 14670 n+02 


C.9 lOOGOO+00 


7.0 


0.0 


54 


C.6CC0CCC^Cl 


J a 13 S 30^0 + 72 


C.4100 CCD + 00 


0.0 


o.c 


c c 


C.6CC0CCC^0l 


G. 1? 1^173+ )2 


C.4100GOC+00 


0.0 


o.c 


56 


0.6COJOOC tOL 


0. 1 : 3 ?^ .'J+J’ 


C . 9 1 00 C Cu+ 0 0 


0.0 


0.0 


57 


0 .CoCOOOC+01 


0 . 115:++0+')2 


G.91000CD+00 


0 .0 


0.0 


56 


c.6coorcc+oi 


C . Iu 5 c 25 Q + n ;> 


C.9100 COC+ 70 


0.0 


0.0 


5^ 


C .6CuOOOC +01 


G .S57I0 1?+01 


C.'^IOOCOO+OO 


0.0 


o.c 


6C 


C . gCOOCCC + uI 


0 . £4 261 50^ jl 


0.9’1.)0 COC + 0 0 


0 .0 


o.c 


61 


c,6COuccn+oi 


0. 1059000 + 01 


C.*^ 10 7 000+00 


0. 7 


0.0 


62 


C.o^OZOOC+Ol 


0 .U402 50 + 12 


c. 7no coo+0 0 


0.0 


0. c 


62 


c.t^iorooo + ci 


0 . 17-^474 7 + j:? 


0.010:7 JOO+00 


0.0 


0 . 7 


64 


0,6 *50 2 \j 0 C ♦ 0 1 


C. U0C72-J + 02 


C. 9100000+ 00 


J.O 


0.0 


65 


c.asoo ooc+01 


0 . 1466^90+ ) 2 


C • 4 1 JO 0 0 u+ 0 (7 


J .0 


0.0 


66 


Q , 6 <= 02 CJl + o 1 


C. 151c 360 + 02 


C.-lOO C00+ JO 


0 .0 


0.0 


6? 


a .^t 0?0 u c+oi 


C. 115 22 10+:>2 


C.410OCC0+ 00 


0.3 


o.c 


66 


C. 6502 CCC+Cl 


C .^3496 10+01 


C."' 10 7 COC+OO 


n .0 


0.0 


6<= 


C. 65020CC +01 


C. <099500+ Cl 


C.9I70CCi>00 


0.0 


G. 0 


7C 


0. ll‘^J4GC+02 


0 ^JD+02 


C.OlOO COO + 00 


0.0 


o.c 


71 


C. il204CC+C2 


C- 17 -.2- 10+0 2 


c.*^i )ooor + GO 


3 .0 


J.O 


72 


C. UR )40C +^2 


0 . 17 2^240 + 0 2 


C.9IOO ccr+oc 


0 . 


0.0 


73 


C • 1 1 oO 4 G C +02 


0 . l^c -5 l'7 + .U 


C. 9100000+00 


7 .3 


0.0 


74 


0, 1U 0400 + 02 


C. 16 CC4c.7 + C2 


C . 9 L 0 0 C 0 C + 0 0 


3.0 


0.0 


75 


0 • ilc04Cr+G2 


0 . 1534S60 + 72 


C. 4100 CCP+uO 


0.0 


0. c 


76 


C, 11PJ40C+C2 


C . 1464300 +02 


C.4I.J0C00 + 00 


0 .0 


0.0 


77 


0, 1 l-vj4C0 + C2 


0. 159 + 3 eO + 02 


C. 9 lOO OCO+ 00 


0.0 


0.0 


78 


c . lu ^ J 40^+02 


0 .13 145 40 + )2 


C. 9100 CCD+00 


0.0 


o.c 


7^ 


0. 110J4CC+C2 


0. 123^070+02 


C.9100 OOC + 00 


0.0 


0.0 


8C 


0. 11BJ4GC+02 


0. lL5i9'30 + 02 


c.cioocco+ao 


0.0 


0.0 
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SUMyiRY r<= ^'^DAL CnC«OlNATES 



NODE 


li I ) 


R ( n 


3< I ) 


4BS FLOW ANG 


RFL FLOW Ar4G 


81 


0* ii8j4or+c2 


0 .10‘=^^93D + 02 


C.‘^I00C00>00 


0.0 


0. c 


62 


C. ll^OACC^C^ 


C .^6cd^620 + 01 


C.9I00 COG+00 


0 .0 


0.0 


83 


G. 1 U J^GC+C2 


0. ^42*^2 2 )>0 1 


C.9I00 ccooc 


0.0 


0.0 


84 


G.118040C>U2 


0.71 3 GOOD >01 


C.OlOO C00>00 


0 .0 


0.0 


a 6 


C* 12^.'^! 5C>C2 


C. 133^350+02 


C.9100C2C+00 


0.x) 


0.0 


86 


0. 12'"o t 


0 • 17 2'"‘:60>J2 


C.^I.}0CCO>0C 


).0 


o.c 


87 


C.12hoi5C>02 


C.16C^94D>.)? 


C . Oioo COD>00 


0 .0 


0.0 


86 


C* 12^9 15C+CZ 


C. 14 721 ii^O> 32 


C.oiOOCOOOO 


0.0 


0.0 


8S 


0 • 1 ZG'^l 5C+C2 


0 . r 2 74 1)>02 


c. nooc :o> jo 


0.0 


o.c 


9C 


0. 12301 5C+C2 


0.1l6473')>02 


0.4 LOO c )n>oo 


J.O 


3 .0 


91 


C. 1230 L +C2 


0 .97«^'-C 70>01 


C.9100CCO>00 


J. J 


0.0 


92 


C.12-01 5C+U2 


0 .73 9(iQun^. n 


C.O100C00>00 


0 .0 


0.0 


93 


C. 13970CC^*C2 


0. 18 3<‘0C0>02 


C. ?100 coo 00 


3.0 


0.0 


04 


0. 1?o7ocC+J2 


0. 17^ n 50 >32 


C.910JCOO> jC 


0.0 


0.0 


95 


C. 13O79CO02 


0. i727i 30>0Z 


c."»iojcoc>ao 


0 .0 


u . C 


96 


0. 1 jo7Gcr>C2 


0. 166842 )> 02 


C. 91 )0 CC0>00 


3 . 0 


0.3 


97 


C.13O7QCC+02 


C • loO 75 410 4-0 2 


C •"’100CCO>00 


0.0 


o.c 


96 


C. l?o79CC>C2 


0 . 15442t)0 >0 2 


C.9100 ccr:>oo 


3.0 


0.3 


99 


C . 13079CC^C2 


0 . I47-2813> J2 


C.'^l JJ CCO> JC 


3. J 


0.0 


IOC 


C.1?o7'^0C^02 


C • I-^Q'^2 10>0? 


G.oi JO C 3000 


0 .0 


0.0 


101 


C*n979CC>C2 


0. 13:j6580>C2 


c.-10‘j CCC>00 


3.0 


0 .0 


102 


0. 13070.:r >02 


0.125^7c3>J2 


L.9l’)0CC0>0C 


J.O 


o.c 


1C3 


C. 13O7OCC+02 


0 . ; 1 779 30 >o 2 


C. )100 CCO + 00 


J .0 


o.c 


104 


C* 12 -70COC2 


C. 109C0IO4-C2 


C.9L)OCOO JO 


3.0 


0.0 


105 


C. 1307:sCC>C: 


0 .9'- ^73 I0> )1 


O.'MOO C0O>uO 


0.0 


o.c 


1C6 


C.1397ccr+02 


0 .^184 33D>OI 


J.9 1J0C ir+00 


0.0 


3.3 


107 


C. 13or^CC>C2 


C . 7S«0J0!)+ j 1 


C. -IJO ccooc 


x).0 


0.0 


108 


0 . lt>2 0 C >02 


.1^ Z'-O0D>02 


c.^^ioo con +00 


0.3 


0.0 


1C9 


C. I6Z0e5C>C2 


C, 172Zfi5i)>02 


C.910 3 COO>OU 


3.0 


0 .0 


11 0 


0 . 1^1720C>C2 


C. I5C^ 7 10>02 


C.9IOOCC!3> OC 


J.O 


o.c 


11 1 


C. 16125 5C+02 


C . 14 3-O Jl3>()2 


G.'^IOJ CCOCO 


J .0 


0.0 


112 


C. UC99C0 .2 


C. 13554 OO 4-02 


C. 9 100 coo 00 


0.0 


0.0 


113 


0* I^C^Z 5C>C2 


C . 120 *^3 '404-02 


C.910J GCO+00 


0.0 


o.c 


114 


C*ieC26CC>C2 


0 • 1 04 C 7 00 4-0 2 


G.^'^lOO OC3>'^0 


J.O 


0.3 


115 


0«l!:'-S'^''C+C2 


C. C4j 3^00 >C1 


C.^IOOCCOOC 


C . 0 


0.0 


116 


0 . I 35 W C C >02 


0 .n 10J0O> }2 


0.902« 6^0+00 


0 .0 


0. Q 


117 


C* 1 E^7^50C2 


0. 1 769720 + 02 


C. JJ3^43f:>00 


0.0 


0.3 


118 


0* 1‘^4?aoC>o2 


C . 17 l^'-O 20 >0 2 


C.J0196^U4-00 


0 . 0 


0. C 


ll<^ 


C. 1P4JI=C>02 


C. 16667004-07 


0.9 014 4 )G+00 


3 . 0 


0.3 


12C 


0* 13363CC>C2 


C. 16 123 6H> 02 


C.^OC852D>GO 


3 .0 


0.0 
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SUVHA3Y CF M004L COnF D INA TF S 



NOCE 


2(1 ) 


R ( 1 ) 


B( I ) 


9HS FLOW ^HG 


PEL FLOW 


121 


0. 18'’35‘=C>02 


0. 1557060 + 02 


C *^C01 c 70+ OC 


G.O 


o.c 


122 


C. 18:'^Z0C4*C2 


C co+02 


0 .d9.'^96'^n + O0 


0 .3 


O.Q 


12 3 


C. 1H2555C’^:2 


C. 19i<-0CO + .12 


C. ? 70+ 2C 


0.0 


0.0 


12^ 


0.16'’1<='0C^ JZ 


3.1576170+02 


o.:r-76 9'^Ofoo 


} . 0 


O.C 


12? 


C. i 5C>CZ 


0. 131C^9'^ + J2 


u.2,^^ 5 2 50+00 


0.0 


0.0 


12<? 


c . m^t^cc+oz 


C.I291GIJ> J2 


C. 3953 6 -0+GC 


0. J 


0.0 


127 


C.181 J‘2 3c+02 


0 • llo7 5 80 + v)2 


C.R93'^A60+C0 


0 .0 


0.0 


126 


C. 16C73CC + C3 


C. 13+vJ2 


C. 3922 9‘^G^►00 


0.0 


0.0 


129 


0. 130365C+UZ 


L . 100 -750 + 02 


C.9902 I'^O+OC 


0.0 


0. 0 


13C 


C . IPOOOCC+OZ 


C.SiZ5000+ul 


0 .3 5 *^7 9?D*>CG 


0 .0 


o.c 


13 1 


a. 194905C>C2 


C. 10C305J+02 


C. 2 701 220+ 00 


0 . 0 


0.0 


132 


C.1^-537C'^C2 


a . 1704550+02 


G.260J5 200>OC 


0.0 


o.c 


133 


C. 1 59669r+CZ 


C. 150.450 -) + 02 


0.3'+^7 0^00 


0 • 


0 .0 


13^ 


C, l«^9i0 IC^CZ 


C . 15Ul°CD + 02 


C.8335 C92+00 


J . 0 


0.0 


135 


C* 9 C >02 


0 . 10 Rc ^20+02 


C.d 1 ^5990+00 


0 .0 


0.0 


136 


C. 1^50o6C>CZ 


C. 1251620 + 02 


C. 7'^^06 ^^G + 00 


0.0 


0 .0 


137 


C.19M''-8C >02 


C. 11229 10+0 2 


C.7'--2 5 '0+ CO 


J. 0 


0. c 


136 


C. 1<=5330C>02 


C. 953.^000 + 01 


0.722 3 75 C + OC 


0 .0 


0.0 


13<= 


C .2C173CC^C2 


1 72 ^1C0>02 


C. 903 09 10+ GO 


0.0 


0.0 


19 C 


C.2vJ^I^7C>02 


C .1793290 + 02 


C.^'.j2 3C3 7+ JO 


0.0 


o.c 


19 1 


C ♦2C9609C>C: 


C . 16 92350 + 02 


G.9jlQ0'’0+00 


0.0 


0 .0 


19 2 


C. 2051 ^ 1C>02 


0. 16521^0 + 02 


G.^v:i^9r2>CC 


0.0 


0.0 


193 


C.ZC-^t? vu^oz 


0 .lo09700 + 02 


C. 9003 550+00 


3 . 3 


0.0 


199 


C.2C51 ^rC+CZ 


0. 1555760 + 02 


:. '^co2 C9o>oc 


0.0 


0.0 


195 


0.20^6 -»^C>02 


C . 15 0 52 3O+0? 


C.R9c^7do+0C 


0.0 


o.c 


196 


C. 2C71 HCOC^ 


G. 1952^50 + 02 


0.rj'^966^0 + O0 


0.0 


o.c 


197 


C. 2C76 7 /C>C2 


C. n9r 7 1i.)+C2 


C.R977<;30+ jo 


0.0 


0.0 


198 


C.ZO'^i 79C'>C2 


0.12 922 30 -^02 


O.R^o? <=60+00 


0.0 


0. G 


19^ 


0.7C‘-^ 7 1C>C2 


0 .12 333 20 + 0- 


0.405ooCl+00 


3.0 


0.0 


15C 


C .2G^'169C tCZ 


G . 122 16-^0 + 02 


L. 3<=93 70 j+ JC 


0.0 


J .0 


151 


G.2 >02 


0 .11 3^600+02 


G . 3^42 7 4.^0+0 0 


0 . 0 


c.c 


152 


c. 2 ici 5 zr^cz 


C. lo6 7690+02 


C. 40 J691C+C0 


0.0 


3.0 


153 


0 *2 lu'--5CC >02 


0. 10 19 100 > )2 


G.3677CC0+ 00 


. 0 


0 . c 


159 


C. 2 IM OOC>02 


0 • 1735250+02 


0 • 1 0 0 C G G + 0 J 


0 .0 


0.0 


155 


Q.2lr-..)<:Z^C2 


C. 169c^50+02 


C. =310JC2J+'JJ 


0.0 


0.0 


156 


C.21751^C>0Z 


C , 10 0 70 10+0 2 


C.^IOJ CG0>00 


0.0 


0 . u 


157 


C*2U2Z-C>C2 


0.1511900+02 


C. 91 j 00 3 0 + 00 


0.0 


0 .0 


158 


C. 21-^3 1C>C2 


G. 1-*-032 90+J2 


C. 9iJOCC2+uC 


u . 0 


0.0 


15 c 


c,:i^-6:cc>G2 


0 .12'^7v 7 n + 02 


C.^IOOCOOOO 


0 .0 


0.0 


16C 


C.22Ci97C>C2 


C. 2 175290 + 02 


C.9100CGD+G0 


0.0 


0.0 
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SUNi^ftRY CF MHOAL C.TGRUIMTES 



NCCE 


Z(I) 


R( I ) 


B( I ) 


ABS FLOW Ar^G 


REL FLOW 


161 


C. 2210 5 5 CtC3 


C . 1C393C0 + 02 


C.9100CC2+CC 


0.0 


0.0 


162 


C.22^'900C + J3 


0 . 1 79?oOO + 02 


0 680 + 00 


0 .0 


o.c 


163 


C.22871 lC + 22 


2. 179^1 lJ+02 


C.89>^93?C + 00 


0.0 


0.0 


16A 


0.22®<53 1C*02 


0 . l^cc^0 D+ j2 


C * ’^087 7 50+ 2 C 


0.0 


0.0 


165 


C. 2 29 1 3 2C + C2 


C . loSr.0i0 + J2 


C.3^-^.5 930+00 


J.O 


o.c 


166 


0*229 'A2C + C2 


C. 16 1 123i)-+02 


C.8^^3 8 32+0C 


0.0 


0.0 


167 


C •22^5*5^C +02 


0.15o5l80>02 


C.H0^143D+00 


0.0 


o.c 


166 


C* 22976AC+C2 


0. 15 17720+02 


C.8‘.73 73n+jQ 


0.0 


0 .0 


16C 


0.22^''^ 75C +02 


0.1968790+02 


C.8«75 72.O+a0 


c.o 


0.0 


17C 


C.:3C1 86C+C2 


0.191^060+02 


0 .s ;72 9;ii:+oo 


0 .0 


0.0 


171 


0.22J3^rC+L2 


0. 1365510+C2 


C • ‘5^6 d 7 8D+ 0 0 


0.0 


0.0 


172 


C . 23000 7C+02 


C . 131C85D+02 


0.8 V.APZO+CG 


0.0 


o.c 


173 


C.23C.^l 5ri-C2 


2.12530 10+02 


0.^ 9^0 5 10+ CO 


0.0 


0.0 


17A 


0 . 2 3 ! C 2 c C + C2 


C. 1199090+02 


0 . 8 ^ 5 7 3 C+ 0 C 


0.0 


0.0 


175 


C.231239C+02 


0.1131130 +0 2 


2.8-50900+00 


0 .0 


o.c 


176 


C.2?145Cr+C2 


C. 1069501) + . J2 


C.8<^99 3 70 + 00 


0.0 


0.0 


177 


0 .2962 -CC >02 


0. 1783600 + U2 


C. 8212 p^’O+OC 


0.0 


0.0 


178 


C.2A6I6 lC+02 


C .1701660+02 


C.'>217 7 3 0 + JQ 


0.0 


0.0 


17C 


c. 2A^ j 7 ic^c: 


C. 16155 70 + 02 


0.92290^0+00 


0.0 


0.0 


lac 


0.2A‘=^o^2C+C2 


C .r5 29'^Z0>..^Z 


0.822*^350+00 


0.0 


o.c 


181 


C.2A5893C+C2 


C . l9?7590+u2 


0.5293 '.:>[:+00 


0.0 


0.0 


182 


C.2^590AC+C2 


C . i3 29 l2:) + 02 


C. 0233 6 1C + 0C 


0. u 


0.0 


182 


C .295 71-.C+02 


0.1211900+02 


0.022*^ 730 + 00 


0.0 


o.c 


18^ 


€• 29562 5C + C2 


0. 1087250+02 


C. ^210 55C+C0 


0.0 


0.0 


18 5 


C.269O0OC+C2 


0 . 17P -^CO + 02 


C. 3 9^1 1C0+ CC 


0.0 


0^0 


186 


C.26-7 J0C+C2 


0 . 1 ’991 -0+02 


0. 39*^8 C2C + '5 Q 


0 .0 


0.0 


187 


C. 26390 or:^L2 


C. i7Ci /60+ 32 


0.50 ^7 3! 0+00 


0.0 


0.0 


188 


C.2t:31'jCC + C3 


0 .1'-62900 + 02 


0.3^0 5 6 20 + 0 0 


0.0 


o.c 


185 


C. 2^2c:.:CC9C3 


C.16 1^95 0+J 2 


C.o-8 3 5or+oo 


0.0 


o.c 


19C 


C .26Z50CC+C2 


0 . 15 /^9 2:'» + 02 


C. C50+GC 


U. 0 


0.0 


191 


0 .262200C+02 


0 .1:;>3 16 30 90 2 


0. 8'^7O62r: + O0 


0 .0 


c.c 


152 


C. 261*^00 2 ■>'C2 


C. 19 0 5^.30 + 02 


C.8 ^75 79G + U0 


0.0 


0.0 


1<33 


C • 26 1 60 0 C +02 


U. 19 3 7060 + j2 


Cm 39*7“^ “3C3+ 00 


0.0 


0.0 


19A 


C.251 j>GCC-^02 


0.1388600+02 


0 .6 )69 730+00 


0.0 


o.c 


195 


C. 26 100CC+C2 


C. 13 3 75 30 + 22 


C. Svo5 350+00 


0.0 


0 . 0 


196 


C.2^07JCr+C2 


C .12^9930 +02 


0 . 2060 6 10 + 0 0 


0.0 


0. c 


19 7 


C.26C9CCC+C2 


0 * 1? 2 0 090+0? 


0.o^)0 5500+C0 


0. 3 


0.0 


198 


C.26010CC ♦ :2 


:. li 71090 + 02 


C. 59-Q c 10+00 


J.O 


0.0 


1<=5 


C.25680CC+02 


0 .11 10 )oO+02 


0.3093 320+ )0 


0.0 


o.c 


20C 


C. 2570CCC+C2 


C. .1733600 + 02 


C. OlOOCJC+00 


0.0 


0.0 
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SUf'waRY Cr .'nOAL CnCPDINATSS 



NOCF 


2(1 ) 


A ( I ) 


B( I ) 


43 S FLOW A^jG 


REL FLOW 


201 


C.2c^70CC^C2 


C. 17CACP0^0? 


C« 9 100 0 Ci.'-*- OC 


J.O 


0.0 


2C2 


C.2S6-^00C>02 


0 - lo2067'^+22 


C. 01 JO COIH-00 


0.-2 


o.c 


203 


c. ;^t:iocc^C' 


C. 153 3 720 + 03 


c.siooooL+:o 


2, ) 


0.0 


20^ 


0. 2^‘^^OCC+C2 


J . i‘^30- lo^ijZ 


c. 01 ) jccn^-oc 


). 3 


0.0 


2C5 


)CC fC3 


0 . 153'^olO + oz 


O.^<l)OC0f>OO 


0 .0 


0.0 


206 


C. 2952CCC+C2 


C. !2il7 :0-+02 


C.«100 CCC+00 


0.2 


0.0 


20 7 


0 •2^-'^OOC^C2 


C . 11 13-C0+02 


C.9100CCD+00 


2.0 


0. 0 


206 


C • 33vjGGCC'**C'’ 


C . l YoZcaOi* J2 


C.9 1 )0 C JC^-'J 0 


0.2 


0.0 


20<? 


C. 3?Cv)0CC 


0. 174A45) + 02 


C.0 100 00L«-O0 


0.0 


0.0 


21C 


c .230G3 :c + cz 


C. 17 ;j:,4 1^+02 


c.'^ioo cno+00 


0. 2 


0 . o 


211 


C. f3C3CCC + CZ 


0. 16634J0+-0'’ 


C.910OUOU<- 00 


2.0 


0.0 


212 


C.330 J^CC+1,2 


0.1^: 13 50^-2 2 


C. 0 LOJ CC0> CC 


0.2 


0 . 0 


213 


a.?3000uC<‘C2 


0 . 15 7s190>.)Z 


c. nojcoov.jo 


•j . 2 


0.0 


21A 


0.3300 


0. 153 3^^ lO + CZ 


C.P'-OO CCJ+00 


0.0 


0.0 


215 


0.330J30C+0? 


0.1-331 10 + 32 


C.OIOOCCO+OJ 


0. 0 


0 . c 


216 


C,330JGCC>C2 


0 • 1442950+02 


C. 0!OO COC + JO 


0.0 


o.c 


217 


C. 33COOCC+C2 


C. iiS2210+C2 


C • 9 1 0 0 0 0 0+ C C 


0. 2 


0.0 


2ia 


C .330 J00C4C2 


0 • 1 3 4 1 o 0 0 + 0 2 


C.9 1 JJGOD+OO 


2.0 


o.c 


21S 


C, 33000CCf C3 


C. 12041 Qn>02 


C. >1 )OOOL-t-OJ 


0 . 2 


0.0 


220 


C .32O00CC 


0 . 123 4^70 + 22 


0. ^1 32 v.L>0^02 


vJ . 2 


0.0 


221 


C.33C0 -)CC <-02 


0 • r 7770'^+'^^ 


C.^ijJOOL^'OO 


2 .0 


0.0 


222 


C. 33000Ci:>C2 


C. ll 17CCD+C2 


C. 0 1 02 C CO 2 0 


0.2 


o.c 
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1 

2 

3 

4 

5 

6 

7 

8 

9 

1C 

11 

12 

13 

14 

15 

16 

17 

18 

IS 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

3 7 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

40 

49 

50 

51 

52 

53 

54 

55 

56 

57 

58 

59 

60 

61 

62 



SYSTE‘^ TCPCLO^.Y 



N0CE5 TYPE C 



24 


16 


1 


2 


3 


17 


26 


25 


1 


26 


1 7 


3 


4 


5 


13 


2 8 


27 


1 


26 


10 


c 


6 


7 


19 


30 


'JO 


1 


3C 


19 


7 


8 


9 


20 


32 


31 


1 


22 


2C 


c 


10 


11 


21 


34 


33 


1 


34 


2 1 


11 


12 


13 


22 


36 


35 


1 


36 


22 


13 


14 


15 


23 


38 


37 


1 


4 7 


3 C 


24 


25 


26 


40 


4.Q 


48 


1 


4C 


4C 


26 


27 


28 


41 


51 


50 


1 


51 


4 1 


28 


29 


30 


42 


53 


52 


1 


c - 


42 


3C 


31 


32 


43 


55 


54 


1 


55 


4 3 


32 


33 


34 


H 4 


57 


5o 


1 


57 


44 


34 


3 5 


36 


45 


59 


58 


1 


c 


45 


36 


37 


38 


46 


61 


60 


1 


7C 


62 


47 


48 


49 


o3 


72 


71 


1 


72 


63 


49 


50 


51 


64 


74 


73 


1 


7^ 


64 


5 1 




53 


65 


76 


75 


1 


76 


65 


53 


54 


55 


66 


78 


77 


1 


76 


6 6 


55 


56 


57 


67 


50 


79 


1 


0C 


6 7 


57 


58 


59 


68 


8 2 


81 


1 


62 


6 0 


59 


60 


61 


69 


34 


83 


1 


c ^ 


6 5 


70 


71 


72 


06 




94 


1 


95 


86 


72 


73 


7^ 


87 


97 


96 


1 


c 7 


87 


7h 


75 


76 


83 


99 


93 


1 


95 


86 


76 


77 


73 


39 


101 


100 


1 


ICl 


8 9 


78 


79 


80 


9 0 


103 


102 


1 


1C3 


5C 


8C 


81 


32 


Q1 


105 


104 


1 


ICf 


9 1 


0 


8 3 


84 


92 


107 


lOn 


1 


1 16 


1C0 


93 


94 


95 


139 


113 


1 17 


I 


1 16 


185 


95 


96 


97 


liu 


120 


1 n* 


1 


12C 


no 


97 


98 


QQ 


111 


122 


121 


1 


122 


1 1 1 


99 


100 


101 


112 


124 


123 


1 


124 


112 


10 1 


102 


103 


113 


126 


125 


1 


126 


113 


10^ 


1 J4 


105 


1 14 


12 3 


1 2 I 


1 


126 


114 


1 C5 


136 


107 


115 


130 


129 


1 


124 


13 1 


1 16 


117 


118 


1*^2 


141 


140 


2 


14 1 


132 


118 


119 


120 


133 


143 


142 


2 


142 


*3 *3 


120 


121 


122 


13-4 


145 


144 


2 


145 


134 


122 


123 


124 


13 5 


147 


146 


5 


1 47 


135 


124 


129 


126 


n6 


149 


143 


5 


145 


13 6 


126 


127 


128 


137 


151 


150 


2 


151 


137 




129 


130 


n8 


L53 


152 


2 


16 2 


154 


1 2 c 


L40 


m 


155 


164 


163 


1 


164 


15 5 


l4 1 


n2 


143 


1 - A 


1 66 


16 3 


1 


166 


156 


143 


144 


145 


157 


16 8 


167 


1 


166 


157 


1 


146 


14 7 


158 


171 


169 


1 


1 7C 


15« 


iH 1 


1 o 


IHl 


139 


172 


1 71 


I 


172 


155 


149 


150 


151 


160 


174 


1 f2 


1 


174 


I6C 


.5 1 


132 


I 53 


m 


176 


1 7*^ 


1 


185 


177 


1 62 


163 


16^ 


173 


137 


186 


3 


1 6 7 


17c 


1 6 4 


165 


166 


179 


’ 8Q 


n ^ 


3 


185 


17C 


I c 


167 


163 


n. 


191 


190 


3 


191 


180 


1 o8 


t ->Q 


170 


IHl 


193 


1 u ? 


1 


193 


le 1 


1 7C 


i"-! 


n: 


nz 


195 




3 


195 


132 


172 


173 


174 


I 0 3 


197 


1 




157 


1 G -3 


174 


175 


176 


134 


1 19 


19? 


3 


2C6 


2CC 


1 85 


ns 


13 7 


201 


213 


20 9 


1 


2 1C 


ZO 1 


1-^7 


l*^3 




232 


212 


211 


1 


212 


2C2 


189 


i3i) 


ivu 


233 


214 


213 


1 


214 


2C3 


19 1 


192 




2 G 4 


2 1 o 


215 


1 


216 


20 4 




194 


195 


205 


218 


21 7 


1 


216 


20 5 


1^5 


196 


197 


200 


220 


T 1 Q 


1 


22C 


20 6 


197 


198 


199 


2G7 


222 


221 


1 



ELE-'^EM 



222 



INLET THEPMOrYNA-'l IC VAHIABLES ARE AS EOLLCWS 
FLOV, PA’-E = 0. 17A5ACD + C3 L3M/SEC 

TCT CENSITY = 0.e518n4C-(UL3,-1 CL) FT 

TOT PRESSURE = 0.17500CD+02 PSI 

TOT TEMPIP.ATLPE = C.555UCCC + 03 DEG PANKINE 
RCTATICMAL SFEEC = 0 . 52 OD+OA PPM 

INLET U VELCCITY = C.3C6S22D^03 FT/SEC 

GAS CCNSTAM = 0.5230CCD+02 

RATIC CF SPECIFIC FEATS = D.lACOCCO+01 
SPECIFIC FEAT AT CCN'TANT PRESSURE = O.2A0OOOJ+O0 
static density at ULET = 0.32212A0-01 
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I 

I 

I 



I 



I 



I 



■ 



1 



NCCE5 WHERE PS I IS SPECIFIED 



1 


0,277769D+02 


2 


0 •2*"7947U + 02 


3 


0 .22210501-02 


k 


0*2 1626201-02 


c 


0. 1CP42 10+02 


6 


0.178^^ 7S01-02 


7 


C. 15 672701-02 


8 


0 .128'^ 050+02 


c 


C .1190520 + 02 


1C 




11 


0 .7^26330 + 01 


12 


0.5*= 5262D + 01 


12 


C .3^6'^ + !O+0 1 


14 


C .19642 LO + 01 


15 


C .C 


U 


0 .2 777600+02 


22 


U .0 


2k 


C.27776SO+C2 


26 


0 .0 


^ c 


C .2777800 + 02 


kt 


G.O 


47 


0 .2777340 + 02 


61 


C.C 


62 


0.27773^0+02 


6 <; 


C .0 


7C 


C.2777890+C2 
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LA^C'ST cp5; pcp 

ITEkATICN Mn. 

FlJ\r T I^^ 
NF>T ITErATinK 
LARGEST EP^ 
^E«ATIC^ N'". 
STPEA.'^ FtNfTir.iN 
NE)(T ITEPA^I-^.N 
lAPGFST EPS PCF 
I TERATICN r/^. 
strean flnct I^^ 

NE>T ITEHATIC^ 
LARGEST cP.^ ^CR 
HERAT I C^ .V“'. 
ETPEi^ FL^CTIC^ 
NEXT ITEPATIr^ 
LARGEST EPS ^^CF 
ITEPATICN NO, 
5TPEAV FLNf^ICN 
NEXT I TF-ATI TN 
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HERAT ICN r.P . 
5TPEAN FLNCTICN 
NEXT ITERATION 
LARGEST PCS PCF 
ITERATICN 'H. 

5TPEA.V FL^C'^IC^ 
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I TER AT ICN • 
5TFEAN FIMT^ICN 
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ITFPH!CN 1 IS 

1 CC.'^FLf'T^ 
Cn^VEREE^'CE MOT 

IS I^ F^-^CGPdSS 
IT^^PATir.-'j 2 IS 

2 rC'^FLET^' 
^O^VP^^•SF\C : NOT 

IS IN ^kCGPESS 
ITERHIfN 3 IS 

3 CCNPLFTE 
CnNVERGLNCE NOT 

IS H F^ EGRESS 
ITP^ATIEG IS 
A CC VPL H E 
CJNVFRGrNCI NOT 
IS IN «kCG»6SS 
ITlRHICM 5 IS 

5 CC^PLE^E 
CGN’VERl';E"CE NOT 

IS IN RrCGRf^SS 
ITE--’AT!CG 6 IS 

6 CC^PLETE 
CGN\>3PCFNC^ NET 

IS IN £5PC^P*SS 
it^r;?t:c'i 7 IS 

7 rCNCLP-= 
^Jl^.VERG:^C= NOT 

IS IN P^-CGPSSS 
ITEPATIE‘I J IS 
p rc ^Pl ETE 
CONVFPCENCE NCT 
IS IN PPEGF-SS 
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0.94Ht2332AI000-01 
YET SATISFIED. 

0 .6621386 A04B9D-01 
YET SATISFIED. 

0.A6<=4S87S3H0CD-01 
YET SATISFIED. 
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YET SATISFIED. 
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YET SATISFICE. 



FREGPAN TLcmin^TEl) CN ITcPAJIDN NP. 
RFSLLTS uhICh 
STREAM FLNCT I 



FCLLfw APE FC^ CCNVERGENCE EPSILOri = 
N CO\VERGE‘!CE CRITERICN SA*^I SPIED CN 



1 . IB'POITThIoS 
1‘T’EkATICN .^'UM 



1 I 
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